Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

use strict;
...
   die "$fileName does not exist!" unless -e $fileName;
   copy ($fileName, $np_new.'/usr/castle/pctemp/'$dest{$search}) if $f
+ileName =~ /^$search/i;
}