use Cwd;

my $origpath = getcwd;  # before doing 'chdir $wrPath'

...

chdir $origpath;  # after doing 'system( "cvs diff ..." )'