Select Code to Download

 # Sample code
use Data::Dumper;
my $k = 42;
...
}

r( 10 );

package PadViewer;
use strict;
use 5.006;
...
}

1;