my $name = "do";
sub do { print "I am doing this now\n"; }
$name->();