Unnamed

 my $sock = new IO::Socket::INET (
                                  LocalHost => '',
                                  LocalPort => '7375',
                                  Proto => 'tcp',
                                  Listen => 2,
                                  Reuse => 0,
                                 );
die "Could not create socket: $!\n" unless $sock;
while($new_sock = $sock->accept()){
   $new_sock->send("Welcome!\n");
}