use Win32::OLE;

my $excelfile = 'E:\\perl scripts\\abc.xls';
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
        || Win32::OLE->new('Excel.Application', 'Quit');
$Excel->{'Visible'} = 1;
my $Book = $Excel->Workbooks->Open($excelfile);     

my $Sheet = $Book->Worksheets("Sheet1");
$Sheet->Activate();    
#------Here's what u were looking for   
$Sheet->range('A4')->copy();
$Sheet->range('B1')->Select();
$Sheet->paste();