Help for this page

Select Code to Download


  1. or download this
    my $content = do {
        if (is_filehandle $f) { local $/ = <$f> }
        elsif (-f $f)         { local(@ARGV, $/) = $f; <> }
        else                  { LWP::UserAgent->new->get($f)->decoded_cont
    +ent }
    };
    
  2. or download this
    my $content = do
    {
    ...
            LWP::UserAgent->new->get($f)->decoded_content;
        }
    };