C:\test>perl junk.pm
Can't modify constant item in scalar assignment at junk.pm line 19, near ");"