##
opendir (Incoming\Temp, $tmp_dir) or die $!;
##
##
opendir my $DIR, $dir_path or die $!;
##
##
open (MYFILE, '>>vehicles.txt');
##
##
open my $OUT, '>>', 'vehicles.txt' or die $!;
##
##
while (my $filename = readdir $DIR) {
open my $FILE, '<', "$dir_path/$filename" or die $!;
while (my $content = <$FILE>) {
print $OUT $content;
}
}
##
##
CLOSEDIR;