#!/usr/bin/env perl

use strict;
use warnings;
use autodie;

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