#! /usr/bin/perl

use strict;
use warnings;
use bytes;

opendir DIR, "/path/to/dir" or die "opendir: $!";
my @files = readdir DIR;

open HANDLE, ">filelist" or die "open filelist: $!";

foreach (@files) {
      print HANDLE "$_\n";
}