my $char = getc();
print "you entered $char\n";