Select Code to Download

use warnings;
use strict;
...
$path_to_file =~ s.\\.\/.g;
my ($file,$path) = fileparse($path_to_file);
print "$file is in $path\n";

use File::Copy;
copy $file,$newpath or die "Cannot copy $file to $newpath:$!\n";