Help for this page

Select Code to Download


  1. or download this
    sub foo {
  print STDERR "Entering sub foo(@_)\n";
...
  print STDERR "Exiting sub foo: return value $bar\n";
  return $bar;
}
  2. or download this
    #!/usr/bin/perl -w
# usage: $0 filename [optional output file]
...
        print $outp "@{$calls{$name}{$rc}}\n";
    }
}
  3. or download this
    #!/usr/bin/perl -w
use strict;
...
    #LINE
    close FILE;
}