Select Code to Download

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

    $path = shift;
    $path = "." unless $path;
...
    }
    
    closedir( DIR );

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