open(FIFO), ">$program") || die "Darn : $!"; #will give you a good reason why it can't open. the ">" says, write to this file.
print FIFO "$username\n";
and so on.....