Select Code to Download

#!/usr/bin/perl

...
    make_path($subdir) unless -d $subdir;
    move($file, $subdir) or warn "Failed to move $file to $subdir <$!>
+\n";
}