$_ = 'Z()';
foreach my $x (1..5)
{
print "$_\n";
<STDIN>;
$_ = eval $_;
die $@ if $@;
}
sub Z
{
return <<'Z';
...
Z
}
__END__