use strict;
use warnings;

my $function = 'test';

call $function; <- ?????

sub test
{
print "test";
}