my $handle=$ARGV[0];

opendir(D,$handle) or die "cannot open $!";

my @files=readdir(D);

print "@files\n";

foreach my $file(@files)
{
        open (MYFILE,"$handle/$file") or die "oops $!";
        while(<MYFILE>)
        {
                print $_;
        }
}
closedir(D);