If you declare $stout as a global I think it should work. Use use vars qw($stout); or our $stout; somewhere at the start of your script should do it.

What sort of "strange results" did you get when using my $stout?

Arjen