Select Code to Download

foreach (@ARGV) {
    usagedie() if (!-f || !-d);
}

usagedie() if grep not( -f or -d ), @ARGV;

find(\&fileop, $opts{'directory'}) unless @ARGV;
find(\&fileop, @ARGV) if @ARGV;

find( \&fileop, @ARGV ? @ARGV : $opt_directory );

sub fileop {
    #set the right permissions based on if a file or a directory
...
    chmod oct($opts{'dirmode'}), $_ if -d && $opts{'dirmode'};
    print $File::Find::name . "\n" if $opts{'verbose'} && (-f || -d);
}

sub fileop {
    if( -f and $opt_filemode ) {
...
    }
    print $File::Find::name, "\n" if $opt_verbose;
}

sub check_perm {
    my ( $mode, $perm ) = @_;
...

$opt_filemode = check_perm file => $opt_filemode;
$opt_dirmode = check_perm directory => $opt_dirmode;