my $directory = File::Spec->catfile(my @path, my $directoryTest);

##</code><code>##

my $directory = File::Spec->catfile(@path, $directoryTest);

##</code><code>##

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(@path, $directoryTest);
opendir DIR, $directory or die "cannot open dir $directory: $!";
my @file= readdir DIR;
my @FinalDirectoryList;
push (@FinalDirectoryList, @file);

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

closedir DIR;             #close directory