+my $socket = IO::Socket::INET->new(
+ LocalPort => 4001,
+ LocalAddr => 'localhost',
+ Proto => 'tcp',
+ Listen => 5,
+ Reuse => 1
+) or die "ERROR: $!";
+
+open(my $log, '>>', '/var/log/cups/find_owner_log');
+$SIG{__WARN__} = sub {
+ print STDERR @_;
+ print $log time(), " ", @_;
+};
+
+warn "$0 waiting for client connection on port ", $socket->sockaddr, ":", $socket->sockport, "\n";
+
+while(1) {
+ our $client_socket = $socket->accept();
+ my $line = <$client_socket>;
+
+ warn "<< [$line]";
+
+#my ($file, $local_user, $remote_user) = @ARGV;
+my ($file, $local_user, $remote_user) = split(/\s/,$line,3);