http://www.perlmonks.org?node_id=497112
Public ScratchpadDownload, Select Code To D/L
Changed these lines in Lint.pm 
    eval{ $sv->FLAGS & SVf_POK && exists &{$curstash.'::'.$sv->PV} ; 
        warning "Bare sub name '" . $sv->PV . "' interpreted as string
+";
    }; warn join(", ", @_) if @_;
    if( $sv->FLAGS & SVf_POK && exists &{$curstash.'::'.$sv->PV} ) {
        warning "Bare sub name '" . $sv->PV . "' interpreted as string
+";
    }

[download]
and got this result: 
3 at c:/PERL/lib/B/Lint.pm line 260.
Can't locate object method "FLAGS" via package "B::SPECIAL" at c:/PERL
+/lib/B/Lint.pm line 261.

[download]

On the Evolution of Languages
swampyankee