> sub log_msg { > my $txt = shift; > open(F, ">>/tmp/foo.log"); > print F "$txt\n"; > close(F); > } > ... > log_msg("bar"); Спасибо большое