Print "Enter directory : ";
chomp($dir = <STDIN>);
opendir DIR, $dir or die "Unable to open directory $dir : $!\n";
@files = grep { !/\.\.?/ } readdir DIR;
print "$dir contains " . join(',', @files);