Select Code to Download

close $hash{ $fno };
delete $hash{ $fno };

#!/usr/bin/perl -w

...
  $log->critical("$_[0] at line $line in $filename");
  die $_[0];
}