Select Code to Download

open (FILE, $lfilename) or &dienice;
# my $hash;  # Never used.  ???

...

# Where was $ref supposed to've come from?
# print "<B>", my $ref->{name}, "</B>";