Re^4: How to sovle this, if i use strict i'm getting error.

[BUU]

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

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

sub bar {
        print "bar";
}

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