Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    print "$$second\n";
    $$second++;
}

#!/usr/bin/perl -w
...
    print "$b\n";
    $b++;
}