CVS login from perl script

[Stefano Ricci]

Hi everybody,

I'm new to perl and CVS, and I'm trying to login from a perl script
to a CVS server using 

$pid = open(CVS, "|cvs login") or die "Couldn't fork: $!\n";
print CVS "password";

I found the previous lines in a post to info-cvs, but I'm not able to 
make them work

Can anyone help me?

thank you

Stefano