Select Code to Download

use File::Copy;

copy("oldfile", "newfile");

my @files = <some\\path\\here\\*>; 
#the * means all files in that directory
#just in case you were confused.

unlink($filename);

chdir($path) or die "foo error message\n";
#now do some foo with $filename in this directory