sourcecode thealienz1 <CODE> #needs these to get the html file from live365.com use LWP::Simple; #type in your username(aka: broadcaster's name) here #print "Username: "; #$username = <STDIN>; #chomp($username); $username="thealienz"; #Creates URL $url = 'http://www.live365.com/cgi-bin/directory.cgi?genre=search&searchdesc=' . $username . '&searchfields=H'; print "Getting Stats - "; unless (defined ($page = get($url))) { die "ERROR - There was an error getting URL: $URL\n"; } print "Done\n"; print "Profile: $usrename\n"; #Checks the description if($page =~ m|<TD ID="desc".*?><a class="desc".*?>(.*?)</a></TD>|i) { print "Description:\n$1\n"; } #Checks to see what your connection speed is if($page =~ m|<TD ID="connection".*?>(.*?)</TD>|i) { print "Speed: $1\n"; } #Checks how many people are listening if($page =~ m|<TD ID="listen".*?>(.*?)</TD>|i) { if($1 =~ m|DrawListenerStars\("/scp/\.\./images/", (\d+), (\d+)\)|i) { ($listen,$outof) = ($1,$2); } else{ ($listen,$outof) = split(/\//,$1); } print "Listeners: $listen / $outof\n"; } </CODE> I was working one day on setting up an radio station on live365.com, and I noticed that their main http site was really slow. So, what I did was made a script that checks my broadcasting information really fast. Thanks PERL. Basically all you have to do is type in the username and the script does the rest for you. You do have to make sure that you do have the LWP modules installed. Otherwise I trust that you know how to use this trully useless script. Thanks PERL. Web Stuff thealienz@zdnetmail.com