Select Code to Download

$FH = FileHandle::Rollback->new("> $filepath") or die "cannot open fil
+ehandle: $!";
select($FH);
...
print("$stringline \n");
}
$FH->commit;

  opendir(my $FILELIST,"temp")|| die $_; 
   
...
}