Help for this page
#!/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" }
www.com | www.net | www.org
No recent polls found