Print "Enter directory";
$dir=<STDIN>;      
chomp $dir;
opendir (DIRS, $dir);