use IO::Dir;
use File::Spec::Functions 'rel2abs';

my $d     = IO::Dir->new("your_dir_here") or die("ack - $!");
my @files = map rel2abs($_), grep -f, $d->read;
[download]

See. IO::Dir and File::Spec::Functions for more info.
HTH

_________
broquaint