print "\nDruecken Sie bitte die Entertaste. "; my $c = ;