#! /usr/bin/perl
system clear;
use warnings;
use strict;

print "What directory would you like to scan? \n";
chomp(my $scandir=<>);
print "scanning...$scandir....\n";


opendir (FL, $scandir) or die $!;
my %firstdir = readdir FL;

foreach my $item (%firstdir) {
	print "$item \n";

}