#!/usr/bin/perl
use strict;
use warnings;

my $dir="C:/move/output/test";
opendir DIR, $dir or die "Unable to open $dir: $!";

while (my $filename=readdir DIR)
{
my $file="$dir/$filename";
next unless -f $file;   
open my $fh, '<', $file or die "Unable to open $filename: $!";

open OUT,">C:/move/output/test/out.txt";
select OUT;
my (variables);
{ my loop}
close $fh;
}