#! perl ... my $pid = open CMD, '|-', 'usermod', '-p', ...; print CMD 'password'; close CMD;