There's an error in regexp... I think it should be...

($headers{q/Received/}) = $1 if ($header =~ /^Received:.+\[(\d{1,3}\.\
+d{1,3}\.\d{1,3}\.\d{1,3})\]/);
[download]

sherwin