open( PIPE, " | $programm") or die $!;
print PIPE $passwort;
close(PIPE) or die $!;