4 print STDERR "Usage: mywget prefix URL\n";
8 my ($prefix,$URL) = @ARGV;
9 if ($URL =~ /^file:\//) {
11 my $command = "mkdir -p $prefix ; cp $URL $prefix";
14 or die "\"$command\" error";
16 my $command = "wget -c -P $prefix $URL";
18 or die "\"$command\" error";