#! /usr/bin/perl
use File::Copy::Recursive;
print "Hi this is a script to copy a file \n";
print " Enter the name of the file to be copied with the compete path\n";
$Source = <STDIN>;
chomp($Source);
print "Enter the full path of the Destination \n";
$Destination = <STDIN>;
chomp($Destination);
if( -e $Source)
    { print "copying $Source to $Destination \n";
      copy("$Source","$Destination")or die "File cannot be copied.";
    }
else
    { print " The File doesnot Exist \n";
    }