Select Code to Download

my $dir_path="\Incoming\Temp";

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 $!;
...
        print $OUT $content;
    }
}

CLOSEDIR;