Select Code to Download

#! /usr/bin/perl -W
use File::Copy::Recursive qw (dircopy);
...
else
    { print " The File does not Exist \n";
    }

#! /usr/bin/perl -W
use File::Copy::Recursive qw (dircopy);
...
chomp($Destination);
print "copying $Source to $Destination \n";
dircopy("$Source","$Destination") or die "File cannot be copied.";