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

$rs = \&greet();