title: How do I perform a CVS checkout using Perl?
body: <p>the code below prints nothing. Please help me out in the same.</p>
  
  <pre><code>use Cvs;
  
  my $obj = new Cvs cvsroot =&gt; ":pserver:pramodh\@129.227.152.22:/data/cvs" or die $Cvs::ERROR;
  
  $obj-&gt;checkout(package) || print "ERROR";
  my @modules = $obj-&gt;module_list();
  print "@modules";
  </code></pre>
  
  <p>If I work on the command line it works fine with these commands:</p>
  
  <pre><code>[root@localhost pramodh]# CVSROOT=:pserver:pramodh@129.227.152.22:/data/cvs
  [root@localhost pramodh]# export CVSROOT
  [root@localhost pramodh]# cvs login
  Logging in to :pserver:pramodh@129.227.152.22:2401/data/cvs
  CVS password:pramodh
  [root@localhost pramodh]# cvs co packages
  cvs checkout: Updating packages
  </code></pre>