#!/usr/bin/perl -w

use strict;
use warnings;

open (Output, ">Output.txt") or die "Can't open";

my $tmp_dir= 'C:\Users\ZB\Desktop\Text Files';
opendir (DIR, $tmp_dir) or die $!;

while (my $file_name = readdir(DIR))
{
    next if $file_name eq '.';
    next if $file_name eq '..';
    print "$file_name\n";
}

close (Output)
closedir(DIR);