Woah, okay, lets see, what exactly is in $program? and why are you open();ing it, your not going to be able to send anything to $program unless you do something like this:

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

Thats assuming that $program is a writable file, and your printing the values to it..

Am I misunderstanding what you are trying to do?

--~~--~~--~~--~~--~~--~~--~~--~~--~~--~~--~~--~~--~~--

perl -e '$a="3567"; $b=hex($a); printf("%2X\n",$a);'