Select Code to Download

#!/usr/bin/perl

...
tell() on closed filehandle $fh at tmp.pl line 15.
At offset -1:
...