C:\>perl -MO=Deparse -wl
#! perl -wl
use strict;
for my $i (1 .. 10) {
    print $i;
} cxontinue {
    print "#";
    print "-";
}
__END__

foreach my $i (1 .. 10) {
    print $i;
}
do { print '#';
print '-' }->cxontinue;

- syntax OK

##</code><code>##

    display {find Critter "Fred"} 'Height', 'Weight';

##</code><code>##

    $fred = Critter->find("Fred");
    $fred->display('Height', 'Weight');

##</code><code>##

    Critter->find("Fred")->display('Height', 'Weight');