package main;
my $no = Bar->new();
print "yes\n" if $no->can('do');

package Bar;
sub new { bless {},shift }
sub do  { print "cool\n" }