#!/usr/bin/perl -w use strict; use warnings; use LWP; use HTTP::Request::Common; use CGI::Carp qw(fatalsToBrowser); print "Content-type: text/html; charset=utf8\n\n"; my $ua = LWP::UserAgent->new( protocols_allowed => ['http', 'https'], timeout => 10, ); $ua->env_proxy; $ua->cookie_jar({}); my $response = $ua->get('https://www.bi*****/video/m4q*******/'); if ($response->is_success) { print $response->decoded_content; } else { die $response->status_line; # line 26 }