#!/usr/bin/perl

open my $pipe,'|-', 'cvs update';
print {$pipe} "my_password\n";
close $pipe;