#!/usr/bin/perl
use Cvs::Simple;
use strict;
use warnings;

print "This program is using CVS module of CPAN...\n";
my($cvs) = Cvs::Simple->new('D:/CVS/temp',
        cvsroot => ':pserver:user@server:/cvs/repository',
        password => 'secret'
) or die "$!";
my $tag = "tagname";
my $module = "modulename";
print " Preparing to checkout $tag with $module\n";
$cvs->co($tag , $module);
print "Checkout is done. Please check the location of repository\n";