Select Code to Download

use strict;
use warnings;
...
my $dir = shift;
chdir $dir or die "Couldn't chdir $dir: $!\n";
print "OK, in ". getcwd . "\n";

# ./change.pl Downloads/
OK, in /home/Random/Downloads
...
# ./chmod 000 bar
# ./perl change.pl bar
Couldn't chdir bar: Permission denied