!/usr/bin/perl

use strict;
use warnings;

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

&$ref();
$ref->();

__END__