#!/usr/bin/perl -w

use strict;
sub foo { print "foo\n" }

my $f = 'foo';
&$f;