You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
25 lines
475 B
Perl
25 lines
475 B
Perl
#!/usr/bin/env perl
|
|
use warnings;
|
|
use strict;
|
|
use Data::Dump;
|
|
use IO::Socket;
|
|
|
|
# $ git clone https://github.com/novnc/websockify
|
|
# $ cd websockify
|
|
# $ ./run 2345 localhost:2346
|
|
|
|
my $serv = IO::Socket::INET->new(
|
|
LocalAddr => 'localhost',
|
|
LocalPort => 2346,
|
|
Proto => 'tcp',
|
|
Listen => 5,
|
|
Reuse => 1 ) or die $@;
|
|
|
|
# really dumb server
|
|
print "Listening...\n";
|
|
while (my $client = $serv->accept()) {
|
|
print "Got a client...\n";
|
|
print $client "Hello, Perl!\n";
|
|
}
|
|
|