open(my $sufh, "|-", "su - perl install") or die "$!\n";
print $sufh "$passwd\n";
close($sufh) or die "$!";