sub greet {
    print "hello \n";
}
$rs = \&greet; # Create a reference to subroutine greet

$rs = \&greet();
[download]

It calls greet and produces a reference to its return value.