#!/usr/bin/perl

# programcek za kontinuirano slikanje

# poskrbi za nastavitve
print `./CCD.env`;

# koliko slik, cas
$st_slik=10;
$cas=5;

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



