open SELF, "+< $0" or die "Can't open $0: $!"; { local $/ = join '', $/, '__DATA__'; ; #fast forward to the good stuff } truncate SELF, tell SELF; print SELF $/, $newpage; close SELF;