Select Code to Download

#!/usr/bin/perl
use strict; use warnings;
...
    $place = catdir($place, $dir);
    (-d $place) || (mkdir $place, 0755) or die "Problem making $place:
+ $!";
}