print "${&getmessage}";

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