Detect and Display of operating system using Perl

Question

I want to display my computer's operating system using Perl. I thought the following would do

#!/usr/bin/perl
use strict;
use warnings;

my $os = $^O;
print "$os\n";

But the output I got is

linux

I want the output to be displayed as

Windows XP

How to do this? Please help. Thanks in advance.

Answer 1

Use the uname() function that the POSIX module provides for you.