Select Code to Download

sub unzip {
    my ($archive, $want, $dir) = shift;
...
    croak "There was a problem extracting $want from $archive" unless 
+(-e $dir.$want);
    return 1;
}