Select Code to Download

sub foo {
  print STDERR "Entering sub foo(@_)\n";
...
  print STDERR "Exiting sub foo: return value $bar\n";
  return $bar;
}

#!/usr/bin/perl -w
# usage: $0 filename [optional output file]
...
        print $outp "@{$calls{$name}{$rc}}\n";
    }
}

#!/usr/bin/perl -w
use strict;
...
    #LINE
    close FILE;
}