eval {
    local $SIG{ALRM} = sub { die "alarm\n" };
    alarm 10;
    my $answer = <STDIN>;
    alarm 0;
};
if ($@) {
    say "Verloren";
}
else {
    say "Gewonnen";
}