Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w

...
my ( $foo, $bar ) = @ARGV;
print "foo = $foo\n";
print "bar = $bar\n";
  2. or download this
    #!/usr/bin/perl -w

...
my $bar = shift;
print "foo = $foo\n";
print "bar = $bar\n";
  3. or download this
    
#!/usr/bin/perl
...
my $file = shift;
pod2usage(-exitfile => 1, -verbose => 1) unless ( defined( $file ));
die("File $file is not a regular file.\n") unless ( -f $file );