system("mknod named.pipe p");

##</code><code>##

use POSIX 'mkfifo';

mkfifo 'named.pipe' or die "Cannot create FIFO 'named.pipe' $!";