Select Code to Download

#!/usr/local/bin/perl
use strict;
...
sub doit {
        print shift, ": ", join(",", @_), "\n";
}

my $foo;

sub bar {
    $foo++;
}