#!/usr/bin/perl

use strict;
use warnings;

print "Enter name of directory (fully qualified path): ";
chomp(my $dir = <STDIN>);
opendir my($dirhandle), $dir or die "No such directory: $dir";
my @files = readdir($dirhandle);
closedir($dirhandle);
foreach my $file (@files)
{
print $file, "\n";
}