#!/usr/bin/perl

use strict;
use warnings;
use Cvs::Simple;

my ($cvs) = Cvs::Simple->new();

my $old = '/cvs-test';
my $new = '/cvs-test2';
$cvs->merge($old, $new, 'new_filename');

#my $result = $cvs->update();