#!/usr/bin/perl

use strict;
use warnings;

my $sub_ref = \&hi;

print $sub_ref->();
print "$sub_ref->()", $/;

sub hi {
    return "hi\n";
}
__END__
hi
CODE(0x8ad0834)->()