my $a = getc(F);
$a = getc()
