Generated: Sun Aug 21 11:10:42 2011 from chkos.pl 2011/05/22 207.
#!/usr/bin/perl -w # NAME: chkos.pl # AIM: Just output the OS string... use strict; use warnings; my $os = $^O; sub prt($) { printf shift; } prt("OS shows as [$os]\n"); # eof - chkos.pl