$path = shift;
$path .= "/*"
while( $name=glob($path) ) { print "$name"; }