use FileHandle;
    my $fh = new FileHandle;
    my $dir = "/tmp";
    opendir($fh, $dir) or die "Unable to open directory '$dir' ($!)\n";
    my @files = readdir($fh);
    closedir $fh;

##</code><code>##

    map { $_ = "$dir/$_" } @files;    # Prepend "/tmp" to all files