You don't actually need to change the current strictures:

use strict;
sub foo {
        print "Foo";
}

sub bar {
        print "bar";
}

main->can("foo")->();
[download]