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

#! perl

my $src = shift;
open( my $fd, ">", $src);
open( my $fi, "<", "$src.pl" );
print { $fd } ( <$fi> );
close($fd);