I have a subroutine called debug I use in my code. It basically allows me to see what\'s going on, etc.
debug
sub debug { my $message = shift
Just get rid of prototypes altogether:
sub debug; debug "Here I am! And the value of foo is $foo"; debug "I am in subroutine foo", 3; sub debug { # body of debug }