#!/usr/bin/perl -w
use strict;
use File::Slurp;

my $DIR="directory";

my @Files=read_dir($DIR);

my $ln=@Files;

for(my $x=0;$x<$ln;$x++){
  print"File: $Files[$x]\n";
}