Select Code to Download

sub get_dir {
        my $dir = shift ;
...
        closedir DIR;
        return @files ;
}

#! /usr/bin/perl
# This one works
...
sleep 30;
main();
}

sub do_wire {
#Non-working....
...
    }
    return $wire;
}

system("net use /USER:USERNAME Q: \\\\RICH0417\\d$\\Temp PASSWORD") ==
+ 0 && wlog("Q:\ Mounted");

14:28 1-17-2003 >>      Cannot open dir: \\RICH0417\d$\wirein. 
14:28 1-17-2003 >>      Cannot get wire1. 
14:28 1-17-2003 >>      Cannot open dir: \\RICH0418\d$\wirein. 
14:28 1-17-2003 >>      Cannot get wire2.