Select Code to Download

#! perl -slw
use strict;
...
P:\test>perl test.pm
12345
Can't return a temporary from lvalue subroutine at test.pm line 32.