#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&sear
+chdesc=' . $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";
}