use Win32::FileOp qw(DeleteAtReboot);
DeleteAtReboot($filename);