# a little tricky
print "\ntrick one\n";
sub ::0 { print "::0 called\n" }
%42->();

# a little more tricky, think about implicit return values
print "\ntrick two\n";
sub :: { print ":: called\n" }
sub ::1{ print "::1 called\n" }
::->();

# and think about evaluation order
print "\ntrick three\n";
sub _ {print "_ called\n"}
_ _ -> ();

# another trick that eliminates white space in sub declarations
print "\ntrick four\n";
sub'x{print "x called\n"}
x;