#!/usr/bin/perl

my $dir = "/home/valami";
opendir (my $dh, $dir) || die "Hiba! A $dir megnyitása sikertelen!\n";
my @files = grep {!/^\./} readdir($dh);
closedir ($dh);
print "@files\n";