simonp

#!/usr/bin/perl
use strict;

require LWP::UserAgent;
my $server = "127.0.0.1:8000";
my $titletext = "your alternate title here";

$titletext =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
$ua->agent('Mozilla/5.0');
my $i = 1;
while ($i == 1) {
        my $url2 = "http://".$server."/admin.cgi?pass=<passwordhere>&mode=updinfo&song=".$titletext;
        $ua->get($url2);
	sleep 120;
}