#!/usr/local/bin/perl
$par_filtr=<STDIN>
while($par_filtr eq "<<KONIEC>>"){
$par_filtr=<STDIN>;#wczytywanie parametrow i filtrow
}