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;

##</code><code>##

ZNAK
Use of uninitialized value $svitok[0] in concatenation (.) or string at /usr/local/src/исп/бибс/об�&#137; line 122.
./svitok1
./svitok2
./svitok3

><