BEGIN { $^I = ".old"; }
LINE: while ( defined( $_ = <ARGV> ) ) {
    print $_ unless $. == 1 or eof;
}