Select Code to Download

#!/usr/bin/perl

...
close $fh or die "$! closing $filename";
printf "3) fileno = %s\n", $fh->fileno // 'undefined';
close $fh or die "$! closing $filename";

1) fileno = 3
2) fileno = undefined
Bad file descriptor closing tmp.11141789 at ./pm11141789.pl line 12.