Help for this page

Select Code to Download

Select or download this

use Test::More;
use File::Temp qw(tempfile);
...
unlink($fname);

done_testing();