perl -MLWP::UserAgent -e '$u=new LWP::UserAgent;$u->agent("japh"); print join(" ",(split(/\s+/,(split/\n/,$u->request(HTTP::Request-> new(GET=>join("",split(/\n/,"http://groups.google.com/groups?selm= 4365%40omepd.UUCP&output=gplain"))))->content)[60]))[0..3]),",\n"'