use strict;
use warnings;
use Test::More;

sub square {
    my $num = shift;
    return $num*$num;
}

my $subname = 'square';

is( eval "&$subname(4)", 16 );

done_testing;