my $input;
 sysread( \*STDIN, $input, 1024);