hrrmmm.... in O'Reilly's "Programing Perl" it says, "Avoid getc for anything but single-character terminal I/O. In fact, dont use it for that either. Use sysread."

#!/usr/bin/perl
use warnings;
use strict;
my $c;
my $t = sysread STDIN,$c,1;
print "You input $c with $t";
[download]

This still doesnt work... It gets an infinite amount of input and never exits. Am i doing this right?