Select Code to Download

#!/usr/bin/perl
# serverfork.pl - a server that forks a child
...
my $ciphertext = $cipher->encrypt($in);
print($new_sock $ciphertext);
}

#!/usr/bin/perl
# use IO::Socket;
...
    }
    close $sock;
}

wmp@innocence:~/ISS/iss/daemon$ ./server.pl
Ciphertext does not begin with a valid header for 'salt' header mode a
+t ./server.pl line 48
wmp@innocence:~/ISS/iss/daemon$