Select Code to Download

# Try to make the directory in case it doesn't exists.
mkdir($dir);   # or mkpath($dir);
...
   or die("Unable to open dir \"$dir\": $!\n");

...