Help for this page

Select Code to Download

Select or download this

foreach  (@files)
{
...
    close(TMP);
    rename("$_.tmp", "$_") or warn "Could not rename '$_.tmp' to '$_':
+ $!\n";
}