use Expect;

my $process = Expect->spawn( '/usr/bin/passwd');
$process->expect( 10, "Password:" );
$process->send( "changeme\n" );
$process->send( "newpass\n" );
$process->send( "newpass\n" );
$process->expect( undef );