String found where operator expected at (eval 8)[C:/Strawberry/perl/site/lib/Devel/Profile.pm:133] line 2, near "croak 'usage: $io->getline()'" 
(Do you need to predeclare croak?)
<br>syntax error at (eval 8)[C:/Strawberry/perl/site/lib/Devel/Profile.pm:133] line 2, near "croak 'usage: $io->getline()'"