#!/usr/bin/perl

print "This is the sample.pl script\n";
print "ARGV = ", join(" ", @ARGV), "\n";

# this will return script name with or without the path
print "Script = $0\n";

# this will return full path to exe if using Perl2Exe
print "Env sourceExe = $ENV{'sourceExe'}\n";

# this will return full path to exe if using Perl2Exe
# or perl.exe if using interpreter
print "\$^X = $^X\n";

print "foo = $foo\n";   # test -foo command line switch

for ($i = 0; $i < 2; $i++) {
 print "i = $i\n";
}

