nicohack.cgi

#!/usr/bin/perl                                                                                      
use strict;
use warnings;
use CGI;
use LWP::UserAgent;

my $q = CGI->new;
print $q->header( -type=> 'text/html', -charset=> 'utf-8');

my $id  = "sm6120845";
my $js_url = "http://ext.nicovideo.jp/thumb_watch/$id";

my $request = HTTP::Request->new( GET => $js_url );
$request->header('Referer', "http://www.nicovideo.jp/");

my $ua = LWP::UserAgent->new();
my $response = $ua->request($request);
$response->is_success or die "Request failed: " . $response->status_line;
my $content = $response->content;

print '<script type="text/javascript">';
print $content;
print '</script>';

__END__