Select Code to Download

#!/usr/bin/perl -w
use strict;
...
sub do_something {
    print "@_\n";
}

1 2 3
4 5 6
...
13 14 15
16 17 18
19 20