my $extcmd = 'cat';
open my $cmd_pipe, '|-', $extcmd or die "open $extcmd: $!";
print $cmd_pipe "password\n";
close $cmd_pipe or die "close $extcmd: ".($! ? $! : "\$?=$?");