#!/usr/bin/perl

$st_slik=10;
$trenutna=1;

while ( $trenutna <= $st_slik ){
    $datoteka= "primer".$trenutna.".fits";
    print "ime: $datoteka\n";
    
    $trenutna=$trenutna+1;
}



