[SUCHE] PERL IRC.Bot für 0day-Exploits von Milworm&Co

[fred777]

Habs jetzt nur für milw0rm gemacht, kannst ja noch erweitern

use LWP::Simple;
print "\nMilw0rm highlighted entries..\n\n";
$resp = get("http://milw0rm.com");
@expl = ($resp =~ /style17">(.*)<\/a>/g);
foreach (@expl) { print $_."\n"; }