programming-examples/perl/Subroutine/Calling function in print statement.pl

print "${&getmessage}";

sub getmessage {
    $msg = "Hello!";
    return "msg"
};