#!C:/perl/bin/perl
#!/usr/bin/perl

use strict;
use warnings;

print "\$0: $0\n";
print "ARGV: ", join( q{,}, map { qq('$_') } @ARGV ), "\n";
print "\nEnvironment:\n";
print "$_: $ENV{$_}\n" for sort keys %ENV;

##</code><code>##

$ chmod +x print_env.pl
$ ./print_env.pl one two three
$ perl print_env.pl one two three