http://erogeek.org/ Erogeekなりたいので、コード書いた。 VchatサイトACAMのオンラインの女の子の無料ライブを見る #!/opt/local/bin/perl use Data::Dumper; my $girls = Net::Acam::Girls->get(); print "Content-type: text/html\n\n"; print q|<html><head><base href="http://acam.jp/"> </head><body>|; for my $girl ( @{ $girls } ) { next unless $girl->{status} eq 'online'; print <<"__HTML__"; <object classid="clsid:d27cdb6e-ae6d-11cf-96b8-4445535