Select Code to Download

#!/usr/bin/perl
use strict;
...
__DATA__
lotsa junk
nothing

ab
__DATA__
...
1:ATA__
2:lotsa junk

ab
__DATA__
...
2:ab
1:ATA__
2:lotsa junk