Select Code to Download

sub captured{

...
unlink0 ($fh, $filename)
or die "Error unlinking file $filename safely: $!";
}