use strict;
use warnings;

my $line;

$|++;
{
    print "    0s: ";

    my $secs = 0;
    local $SIG{ALRM} = sub {
        printf("\e7\r%5ds:\e8", ++$secs);
        alarm(1);
    };
    alarm(1);

    $line = <STDIN>;

    alarm(0);
}

chomp $line;
print "Danke, dass Sie $line eingegeben haben.\n";