bluebear94 · October 15, 2015 19:00
diff --git a/kbd.pl6 b/kbd.pl6
 use v6;
 #use IO::Handle;
 #use IO::Socket;

 #say $*IN.t;

 shell "stty raw -echo";

 loop {
  my $c = $*IN.getc;
  print "<$c> ";
  last if $c eq "q";
 }

 shell "stty cooked echo";
	use v6;
	#use IO::Handle;
	#use IO::Socket;

	#say $*IN.t;

	shell "stty raw -echo";

	loop {
	my $c = $*IN.getc;
	print "<$c> ";
	last if $c eq "q";
	}

	shell "stty cooked echo";