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.....
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);'