use Socket; $url = "画像のURL"; $url =~ s/http\:\/\///g; ($host,$path)=split(/\//,$url,2); $ext = substr($path, rindex($path,'.')+1); $file_name = "保存するときのファイル名" . ".$ext"; $ipaddress = inet_aton("$host"); $sock_addr = pack_sockaddr_in(80,$ipaddress); socket(SOCKET,PF_INET,SOCK_STREAM,0); connect(SOCKET,$sock_addr); select(SOCKET);$ |= 1;select(STDOUT); print SOCKET "GET /$path HTTP/1.0\r\n"; print S