#!/usr/bin/perl -w

  sub namedir {
    print "Enter the directory path you want to search: ";
    $dir = <STDIN>;    
  }

  sub dirme {
    if (! $dir){
    	&namedir;
    }
    print "\n\nFiles in $dir\n";
    opendir(BIN, $dir) or die "Can't open $dir: $!";
    while( defined ($file = readdir BIN) ) {
    	# list files
    	print "$file\n";
    }
    closedir(BIN);
  }    
  &dirme;