$dir = "./"; ##

##

$dir = "./";
opendir( DIRS, $dir );

##

##

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