#!/usr/bin/perl -w


# @seznam_datotek = <*.a>;
@seznam_datotek = </db/base_home/VNOS/PO5/*.po5>;
foreach $i (@seznam_datotek)
{
print "--- $i \n";


}
# ali

while ( my $file = <*.a> ) {
open(FILE, $file) || die "Can't open $file: $!";

# delaj s fajli - spodaj je izpis

print "$file \n";

close FILE;
}