#!/usr/bin/perl
use strict;
use warnings;
{
    use Carp;
    no warnings 'redefine';
    *CORE::GLOBAL::glob = sub {
        my $path = shift;
        $path =~ s/\A\s+//;
        $path =~ s/\s+\z//;
        my $slurp;
        if ( $path =~ m{\w+://} ) {
            eval { require LWP::Simple; };
            croak $@ if $@;
            $slurp = LWP::Simple::get($path);
        }
        else {
            local $/;
            open my $fh, '<', $path or croak "$path:$!";
            $slurp = CORE::readline($fh);
            close $fh;
        }
        return $slurp;
    };
}

print </etc/motd>;
print <http://www.dan.co.jp/>;