#!/usr/bin/perl

  use strict;

  use File::Find::Rule;
  use Data::Dumper;

  my @list = File::Find::Rule->file()->maxdepth(1)->in('.');

  print Dumper \@list;