my $o = bless {}, 'main'; # erstelle ein Object in Class main
print $o->can('foo');     # teste, ob sub 'foo' in main definiert ist