#!/usr/bin/perl 

use Socket;
use POSIX;
use strict;


socket(Sock, AF_UNIX, SOCK_DGRAM, 0) 
	or die "socket(): $!";
connect(Sock, sockaddr_un("/tmp/socks")) 
	or die "connect(): $!";

send(Sock,join(' ',@ARGV)."\n",0,sockaddr_un("/tmp/socks")) 
	or die "send: $!";

print "Sended ".join(' ',@ARGV)."\n";
close(Sock);