Select Code to Download

#!/usr/bin/perl -w

...
}

closedir DIR;

Couldn't rename : Not a directory ..
Couldn't rename : Device or resource busy safdLLP.txT.txt
Couldn't rename : Permission denied safdLLPt.txT.txt
Couldn't rename : Permission denied