#!@PERL_BINARY@

if ($#ARGV != 1) {
 print STDERR "Usage: helm_wget prefix URL\n";
 exit -1;
}

my ($prefix,$URL) = @ARGV;
if ($URL =~ /^file:\//) {
 $URL =~ s/^file:\///;
 my $command = "mkdir -p $prefix ; cp $URL $prefix";
 print "$command\n";
 system($command) == 0
  or die "\"$command\" error";
} else {
 my $command = "wget -c -P $prefix $URL";
 system($command) == 0
  or die "\"$command\" error";
}