;
#!usr/bin/perl -w
use strict;
use warnings;
my $handle=$ARGV[0];
opendir(D,$handle) or die "cannot open";
my @files=readdir(D);
foreach my $file(@files)
{open (MYFILE,"$file") or die"oops";
}
closedir(D)