use IPC::Open2;

my ($fhwrite, $fhread);
my $pid=open2($fhwrite, $fhread,'/bin/bash');
die unless($pid);

print $fhwrite $befehl;
my @anwer=<$fhread>;

close($fhread);
close($fhwrite);