@FILES=grep(!/^\.\.?}$/, readdir(DIR));

##</code><code>##

    $path = shift;
    $path = "." unless $path;
    
    opendir( DIR, $path )
        or die "Can't open $path: $!";
    
    while ( $entry = readdir( DIR ) ) {
        $type = ( -d "$path\\$entry" ) ? "dir" : "file"; # $path is crucial!
        print "$type\t$entry\n";
    }
    
    closedir( DIR );

##</code><code>##

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