open( $vrm, "|-:utf8", "/usr/bin/find $put -$tip $kriteriy" ) or die "Can't run find: $!\n";
while( <$vrm> ){
  push @svitok, $_;
}
print "ZNAK\n";
print "\n>$svitok[0]<\n";
exit;