#!/usr/bin/perl
use IO::Socket::INET6;
$url="::1";
$sock=IO::Socket::INET6->new(PeerHost => $url, PeerPort => 6600, Proto => tcp) or die "[(null) - (null) at 0 kbps] ($@)\n";
print $sock "status\n";
		while ($var = <$sock>) {
			if ($var =~ /song/) {
				$rval = substr((split(/\s/, $var))[1], 0);
			}
			if ($var =~ /bitrate/) {
				$kbps = substr((split(/\s/, $var))[1], 0);
			}
			if ($var =~ /OK\n/) {
				last();
			}
		}
		print $sock "playlistinfo $rval\n";
		print $sock "close\n";
		while ($var = <$sock>) {
			$var =~ s/\&apos\;/\'/g;
			$var =~ s/\&amp\;/\&/g;
			$var =~ s/\&nbsp\;/ /g;
			
			if ($var =~ /Artist: /) {
				$artist = $var; $artist =~ s/Artist: //; chomp($artist);
			}
			if ($var =~ /Title: /) {
				$title = $var; $title =~ s/Title: //; chomp($title);
			}
			if (eof($sock)) { last(); }
			if ($artist && $title) { last(); }
		}
	print "[$artist - $title at $kbps kbps]\n";