mySub(\"Hello World\") mySub() sub mySub() { my $message = "blah"; my $message = shift; #broken version print "Message- $message\n"; print "Caller-> ",caller,"\n"; } mySub();