Comm

server.pl

use strict;
use warnings;

use IO::Socket;

sub handle {
    my $c = shift;
    my $command = <$c>;
    $command = "" unless $command;
    chomp $command;
    print "COMMAND] $command\n";
    if ($command =~ /^link: (.*)$/) {
        print "\tOPEN LINK] $1\n";
        system "open $1";
    }
    print $c "OK\n";
    close $c;
}

my $server = IO::Socket::INET->new(
    LocalPort => 8000,
    Type => SOCK_STREAM,
    Reuse => 1,
    Listen => 10
);

my $out = `ifconfig | grep 192.168*`;
print $out, "\n";

while (my $client = $server->accept) {   
    handle $client;
}

close $server;