print "getc is [$getc]\n";