Select Code to Download

[chad@thepurplebuffalo ~/w/x]$ date > asdf
[chad@thepurplebuffalo ~/w/x]$ perl                      
...
rename 'asdf' , "$now asdf"
[chad@thepurplebuffalo ~/w/x]$ ls -l *asdf*
-rw-------  1 chad users 29 2006-10-28 22:02 Sat\ Oct\ 28\ 22:02:59\ 2
+006\ asdf

#!/usr/bin/perl -w

...
    my $str = $hash{$key_ht{$key}}[1];
    print "Integer is: ", $num, " -- Alpha is: ", $str, "\n";
}