use strict;
use warnings;
use IO::Socket::INET;


my $s = IO::Socket::INET->new(LocalPort => "1225", Proto => "tcp", Type => SOCK_STREAM)
    or die "Can't connect : $!\n";

$s->listen(1);

sleep 60;


sleep 60;


