#!/usr/bin/perl
use File::Copy;
$dest="target";
print "source:\n";
chomp(my $source=<STDIN>);
opendir(DIR, $source)
or die "cannot open the directory '$source': $!";
@files = grep { /\.log$/ } readdir (DIR);
foreach $file(@files){
copy "$source/$file", "$dest$file"
or die "can't copy file $file: $!";
}
closedir (DIR);