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

sub bar {
        print "bar";
}

main->can("foo")->();