in reply to Credit where it is due
I ++'ed this but I have to ask, where do you put the comment? At the end (__DATA__ oops), at the beginning, (before or after #!/usr/bin/perl, what if there is no #! line?) what if the script has been line_numbered?
I hate throwing wrenches into plans I like but I have no idea how I'd do it...
$you = new YOU;
honk() if $you->love(perl)