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