Select Code to Download

somefunc( *FH );

...
    my $fh = shift;
    # use it like a normal filehandle
}

opendir SOMEDIR, $directory or die "Can't open $directory: $!";

...
}

closedir SOMEDIR;