I reproduce your problem on NetBSD 1.6.2 with Perl 5.8. It has to do with the "my" statement for "$mw" being inside the def for the sub.

If you remove the "my" from inside the sub and instead declare "$mw" outside the sub via either a "my $mw;" or else a "use vars qw( $mw );" then the problem goes away.