close STDIN;
my $stdin = "eingabe\n";
open STDIN, "<", \$stdin or die $!;
# tests...