Most likely you want to use readdir (together with opendir) or glob:

my $dir = '/home/aleksandra/programu-testavimas/1-dk/trunk/tests/input
+s';
opendir my $dh, $dir
    or die "Couldn't read '$dir': $!";
my @files = map { "$dir/$_" }
            grep { $_ ne '.' and $_ ne '..' }
            readdir( $dh );

print "Found files:";
print "$_\n" for @files;
[download]