Select Code to Download

#! perl
use strict;
...
 ++$k;
print $m / $k,    "\n";
print $k->sign(), "\n";

13:45 >perl 992_SoPW.pl
3.33333333333333
Can't locate object method "sign" via package "3" (perhaps you forgot 
+to load "3"?) at 992_SoPW.pl line 10.

13:45 >

13:45 >perl 992_SoPW.pl
3
+

13:46 >