#!/usr/bin/perl

use strict;
use warnings;

my $ref = sub {print "Hello, world\n"};

$ref->();
&$ref();  # Look ma, I am using strict!

__END__
Hello, world
Hello, world