#!/usr/local/bin/perl
#
#  usage:
#
    use warnings;
    use strict;

use IO::Socket;

open PIDfile, '>', '/var/run/aws.rcvr.pid';
print PIDfile "$$\n";
close PIDfile;

my ($sock, $new_sock, $buf );
$sock = new IO::Socket::INET    (LocalHost => '192.168.100.7',
                                LocalPort => 8081,
                                Proto   => 'tcp',
                                Listen  => 1,
                                Reuse   => 1
                                );
die "Socket could not be created. Reason: $!" unless $sock;
while ($new_sock = $sock->accept()) {
     while (defined ($buf = <$new_sock>)) {
        if (index($buf, "/DATA_String/") > 0) {
            system("sh", "/home/app_scripts/process.input", "$buf");
#       } else {
        }
     }
}
close ($sock);