Select Code to Download

#!/usr/bin/env perl

...
chomp(my $dir = <STDIN>);
chdir $dir;
print "$_\n" for glob './*';

DIR? not_a_dir
Can't chdir('not_a_dir'): No such file or directory at ...