Select Code to Download

#!/usr/bin/perl
open( eval STDIN, do { (local $_ = $0) =~ s/\.tdy$//; $_ } );
...
    $_ = chr( $a + ord $_ ) for @h; # add name as a number to @h
    $a; # return name, e.g. "39"
}