icq status mit eigenen grafiken einbinden ?

[Sim]

moin, eigentlich wollt ich die frage gestern schon posten, aber nun gut heute in aller frühe

also ich würde gerne die icq blume durch eine eigene grapfik ersetzten

hab da zufällig noch bissel quelltext gefunden weiß aber nicht 100% damit umzugehen

#!/usr/bin/perl

$icqnummer = '';
$online_file = '';
$offline_file = '';

use Socket;

$url = "http://web.icq.com/whitepages/online?icq=$icqnummer&img=0";

($host, $uri) = ($url =~ m!http://(.*?)(/.*)!);
socket SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp');
connect SOCK, sockaddr_in(80, inet_aton($host));
send SOCK, "GET $uri HTTP/1.0\r\nHost: $host\r\n\r\n", 0;
@socket = <SOCK>;
close SOCK;

if($socket[3] =~ /\/lib\/image\/0,,4362,00.gif/) {
open(IMG,"$online_file");
print <IMG>;
close(IMG);
} else {
open(IMG,"$offline_file");
print <IMG>;
close(IMG);
}f

also hab da jetzt nochmal bissel was gefummelt, aber kriegs nicht zum laufen

plz help