#!/usr/bin/perl
use IPC::Open2;

$uebergabe=$ENV{QUERY_STRING};
print "Content-Type: text/html\n\n";

$pid = open2($rp,$rw, 'sudo passwd obsolet');
print $rw ("test123\n");
print $rw ("test123\n");
close($rp);
close($rw);