昔作ったCGIでこんなのがあった。(あの頃は若かった) #!/usr/bin/perl use Furl; my $furl = Furl->new; use CGI; print CGI->header; print "<html>\n"; print "<head>\n"; print "<title>image</title>\n"; print "</head>\n"; print "<body>\n"; for my $i (1..10) { # 画像ファイル名 $image_file = sprintf('%05d', $i).'.gif'; # 画像を取得する my $res = $furl->get('http://.…/'.$image_file); # 画像を保存する open my $fh, '>', '/home/rightgo09/'.$image_file or