System Functions Perl

system "stty cbreak &1"; 
print ">";
while (($char = getc) ne 'q') {
    print "\n";
    print "You typed $char\n>";
}