#!/usr/bin/perl -w

    use strict;

    # Localised in-place edit
    {
        local $^I = ''; # or use '.bak' to save a back-up 
        local @ARGV = 'somefile';

        while (<>) {
            print unless eof;
        }
    }

    __END__