$stdin = <STDIN> ;

 sub ext {

print "Name the extension of the file that you want to find:" ;


$ext = <STDIN> ;

$e = $ext ;

}

 sub name {

print "Name the filename of the file that you want to find:" ;

$file = <STDIN> ;

$f = $file ;

}

sub dir {

print "Name the directory that you want to search:" ;

$dir = <STDIN> ;

$d = $dir ;

}

opendir(DIR, $dir) ;

$s = "$f\.$e" ;

$x = glob($s) ;

print ("Here are the file(s) that you requested: $x") ;