use strict;
use warnings;
sub asub { print "heee\n"; }

my $x = 'asub';
main->$x();