my $dir_path="\Incoming\Temp";

##</code><code>##

opendir (Incoming\Temp, $tmp_dir) or die $!;

##</code><code>##

opendir my $DIR, $dir_path or die $!;

##</code><code>##

open (MYFILE, '>>vehicles.txt');

##</code><code>##

open my $OUT, '>>', 'vehicles.txt' or die $!;

##</code><code>##

while (my $filename = readdir $DIR) {
    open my $FILE, '<', "$dir_path/$filename" or die $!;
    while (my $content = <$FILE>) {
        print $OUT $content;
    }
}
##</code><code>##

CLOSEDIR;