Select Code to Download

sub createDir {
    my $dirName = shift;
...
    }
    mkdir $dirName or return $!;
}

mkdir $path or die "Can't mkdir $path: $!";