use warnings;
use strict;
use File::Replace 'replace2';

my ($infh,$outfh) = replace2(__FILE__);
while (<$infh>) {
	last if /^__DATA__$/;
	print $outfh $_;
}
print $outfh "__DATA__\n";
print $outfh "New stuff! ".gmtime." UTC\n";
close $infh;
close $outfh;