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