#!/usr/bin/perl

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

open(PW, '| sudo passwd obsolet' );
print PW ("pass33\r\n");
print PW ("pass33\r\n");
close(PW);