#!/devtool/local/bin/perl

use POSIX;

($sysname, $nodename, $release, $version, $machine ) = POSIX::uname();
print "sysname: $sysname,\nnodename $nodename,\nrelease: $release, \nversion: $version,\nmachine: $machine \n";
