Select Code to Download

sub bar { print 'woot' }

...
    };
    warn "You can not call $thing: $@ " if $@;
}

foo :
You can not call foo: Undefined subroutine &main::foo called at call l
+ine 7.
  at call line 9.
bar :
woot