my $directory = File::Spec->catfile(my @path, my $directoryTest);
opendir DIR,my $directory or die "cannot open dir $directory: $!";
my @file= readdir DIR;
my @FinalDirectoryList;
push (my @FinalDirectoryList,my @file);

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use File::Spec::Functions;

print "First Box in Disk?\n";
my $firstBox = <stdin>;
print "Last Box in Disk?\n";
my $lastBox = <stdin>;
print "Pick Directory\n";
my $directoryTest = <stdin>;
my @path="/root/begperl/TestDirectory/";


my $directory = File::Spec->catfile(my @path, my $directoryTest);
opendir DIR,my $directory or die "cannot open dir $directory: $!";
my @file= readdir DIR;
my @FinalDirectoryList;
push (my @FinalDirectoryList,my @file);

foreach my $file (@file) {print "$file\n";}


close FileNameList;              #close the file.
closedir DIR;			 #close directory