#!/usr/bin/perl
my $fifo = shift(@ARGV) || die "No FIFO";
if (-p $fifo)
{
    open(FIFO, ">$fifo") || die "Cannot open $fifo for writing";
    print FIFO "/.\n" || die "Cannot write to $fifo";
    close(FIFO) || die "Could not close $fifo";
}
else
{
    print "$p is not a FIFO.\n";
}