if (! my $res = sysread(STDIN,$data,1024)) {
    if (defined $res) {
        print "End of user input. Thanks for playing.\n";
        exit 0;
    } else {
        die "Couldn't read from input: $!";
    };
};