% perl
close STDOUT;
print "Generate error!\n";
__END__
 %