gistfile1.txt

use Mojolicious::Lite;

use Socket;

get '/' => {text => 'Hello, World!'};
get '/connect' => sub {
  my $self = shift;
  my ($ip, $protocol, $port, $myhouse, $yourhouse, $log);

  $ip = '192.168.0.52';
  $port = '6335'; 
  $protocol = getprotobyname('tcp');

  socket(SOCKET, PF_INET, SOCK_STREAM, $protocol);
  $yourhouse = inet_aton($ip);
  $myhouse = sockaddr_in($port, $yourhouse);

  $self->app->log->info("Connecting to $ip:$port");
  if (!connect(SOCKET, $myhouse)) {
    $self->render(text => 'KO');
  } else {
    $self->render(text => 'OK');
    close SOCKET || die "close: $!";
  }
};

app->start;