The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

use strict; use warnings;
print "use strict;\nuse warnings;\n#line 1\n";
while (<STDIN>) { print }