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