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

...