適当に書いてみた。warningでてるのは気のせい ソース nico-html.pl #!/usr/bin/perl use warnings; use strict; use Data::Dumper; use WebService::Simple; use utf8; #sm9 my $url = sprintf( 'http://www.nicovideo.jp/api/getthumbinfo/%s' , $ARGV[0] …