use strict;
use warnings;

my $funcName = 'doit';

if (my $cando = main->can ($funcName)) {
    $cando-> ();
}


sub doit {
    print "I done it\n";
}