#!/usr/bin/perl

use strict;
use warnings;
moose();
sub moose {
    my $filename = 'ter.pl';
    my $contents = do { local (*ARGV, $/) = [ $filename ]; <> };
    print $contents;
}

sub loose {
    my $filename = 'ter.pl';
    my $data= do { local( *ARGV, $/ );
    @ARGV= $filename; <> };
    print $data;

}
__END__
readline() on unopened filehandle ARGV at foo.pl line 8.
Use of uninitialized value in print at foo.pl line 9.