#!/usr/bin/perl

use LWP::UserAgent;
use utf8;

my $agent = LWP::UserAgent->new();
my $response = $agent->get('http://www.ku6.com/show/34D6sgY4X6w3YegR.html');

print $response->decoded_content ."\n";