Nihad Nizar:

A couple random comments:

• When you're using a variable as a string, there's no need to quote it. You typically only do so when you're trying to combine it with other elements in the resulting string.
• If you add $! to your failure message, you may get some helpful clues as to the reason that your files aren't copying.
• A little whitespace in a program can enhance the readability. In the slightly modified version of your code below, I put a blank line around the section to read the source location and the destination location. That way, if you have a problem with a section, your eye can easily see hich lines are involved in that section.

#! /usr/bin/perl -W
use File::Copy::Recursive qw (dircopy);
use warnings;

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";
      dircopy($Source, $Destination) or die "File cannot be copied: $!
+";
    }
else
    { print " The File does not Exist \n";
    }
[download]

I personally don't like having code after the opening brace ({) of a code block, but I didn't change that as it's only a preference, and doesn't affect readability/maintainability/etc.

I'd also advise you to error-check things as soon as possible, rather than later. It simplifies code flow in most cases, and keeps related things together. Consider this version of your program:

#! /usr/bin/perl -W
use File::Copy::Recursive qw (dircopy);
use warnings;

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);
if ( -e $Source)
    { die " The File does not Exist \n";
    }

print "Enter the full path of the Destination \n";
$Destination = <STDIN>;
chomp($Destination);
print "copying $Source to $Destination \n";
dircopy("$Source","$Destination") or die "File cannot be copied.";
[download]

...roboticus

When your only tool is a hammer, all problems look like your thumb.