#!/usr/bin/perl use IO::Socket::INET; use warnings; while (1) { $ip = join ('.', (int(rand(238)) + 1 ,int(rand(254)) + 1 ,int(rand(254)) + 1 ,int(rand(254)) + 1)); # Create a new socket $msg = "I want to get laid, please help me with it."; $MySocket=new IO::Socket::INET->new(PeerPort=>1118, Proto=>'udp', PeerAddr=>"$ip"); $MySocket->send($msg); $MySocket->close(); sleep 3600; }