Select Code to Download

use strict;
use warnings;
...
    chdir $dir or die "$1"; # WTF is $1?
    print "After chdir, cwd is = ", getcwd, "\n";
    }