Server
Code:
#! /usr/bin/perl -w
use FileHandle;
use Socket;
$filename = "/tmp/temporarily";
socket(SERVER,PF_UNIX, SOCK_STREAM, 0) or die"Can't create socket SERVER\n";
autoflush SERVER 1;
bind(SERVER,sockaddr_un("/tmp/0805638") or die"Can't bind server\n";
listen(SERVER,0) or die"Can't...