Perl でやるより Curl でやった方が楽だと思うが...