G'day Jalcock501,

The following two lines are missing terminating semicolons. You would have received an error message about this: where is it? Also, consider the absence/presence of leading/trailing slashes in the pathnames.

my $np_new = 'usr/castle/np_new/'
my $temp = 'usr/castle/pctemp'
[download]

This line is also wrong:

copy ($fileName, $np_new.'/usr/castle/pctemp/'$dest{$search})
[download]

You possibly meant:

copy ($fileName, $np_new.'/usr/castle/pctemp/' . $dest{$search})
#                                              ^ (concatenation)
[download]

Again, I would have expected an error message. Please either post the errors you get or, if you're not getting any, post the actual code you're running.