#!/usr/bin/perl

use strict;
use Config;

my $os_OS = $^O;
my $config = $Config{'archname'};

my @uname = `uname -a`;
chomp( my $os = shift @uname );
$os =~ s/^(\w+)\s.*/$1/;

print "Uname -> $os\n";
print "\$^O -> $os_OS\n";
print "Config -> $config\n";