sorry for the noob questions but i done this. So here it is for shearing

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

I dont know why i start learning perl, but i have to admit i have finish great jobs with him :)) i love it and im continuing to learn more and more :) and tnx for support .....