opendir(DIR, "<$dir") or die $!;

my $file_name;

while (<DIR>){
   $file_name = $_;
}