Reply to Message

#!/usr/bin/perl
#post it already! -sweeney

while (1) {

$rudolph =`lynx -head -source http://www.counterhack.net | grep Last-Modified`;

@modified = split /,/, $rudolph;

print @modified;

if ( $modified[1]=~m/22/ ) {
`echo http://www.counterhack.net | mailx -s \"Check XSS Results\" root`;
print "debug\n";
}
elsif ( $modified[1]=~m/3/ ) {
print "nope, not yet\n";
}

sleep(300);
}