#!/usr/bin/env perl

use strict;
use warnings;
use autodie;

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

##</code><code>##

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