print "\n\nEnter the path (c:/dir/dir/file.ext)\n";
print "R-> ";
my $path = <STDIN>;
chomp $path;

opendir  LOCALDIR, "$path";
my @local_files = grep !/^\.\.?$/, readdir LOCALDIR;
closedir LOCALDIR;
my $n=@local_files;
    
for (my $i=0; $i<$n; $i++)
{

print "$local_files[$i] $local_files[$i+1] $local_files[$i+2] $local_f
+iles[$i+3] $local_files[$i+4]\n"; 

}
[download]