#!/usr/bin/perl
use File::Copy;
$dest="/home/dpavu2/users1/perl/sra/";
print "the source direcotry name:\n";
chomp(my $source = <STDIN>);
opendir(DIR, $sech $file(@files){

@files = grep { /\.log$/ } readdir (DIR);
foreach $file(@files){
}
closedir (DIR);