if ($@) {
my $logtext = 'ruterproba.txt';
open my $fh, '>>',$logtext
or die "Nemoze da zapise vo $logtext poradi:$! ";
print $fh "Error: $@\n"}