need help on my code .....

[enterdavertex]

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 listen";
for(;{
accept(DATA,SERVER);
print <DATA>;
close DATA;
}
error Wrote:
Useless use of a constant in void context at Server.pl line 7.
syntax error at Server.pl line 7, near ""Can't bind server\n";"
Execution of Server.pl aborted due to compilation errors.

Client
Code:
#! /usr/bin/perl -w
use FileHandle;
use Socket;
socket (CLIENT, PF_UNIX, SOCK_STREAM, 0) or die "socket: $!";
autoflush CLIENT 1;
connect(CLIENT, sockaddr_un($filename)) or die "connect: $!";
accept(DATA,CLIENT);
print CLIENT "I have now sent you some very important information";

#! /usr/bin/perl -w
use FileHandle;
use Socket;
socket (CLIENT, PF_UNIX, SOCK_STREAM, 0) or die "socket: $!";
autoflush CLIENT 1;
connect(CLIENT, sockaddr_un($filename)) or die "connect: $!";
accept(DATA,CLIENT);
print CLIENT "I have now sent you some very important information";

 

[Annihilannic]

You're missing a close bracket ")" before the or die on line 7.

Annihilannic.

 

[stevexff]

You are also missing some fundamental posting etiquette, although if nothing else it is at least succint...

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]