$in=open("./UserName", "<|");
if ($in<0) { 
   echo("Error: $ERRMSG\n");
   fatal();
   }
$user=chop(readln($in));
close($in);

