chdir $wrPath;
my $failed = system( "cvs diff >> $reportsPath/diffReport.txt" );
if ( $failed ) {
    warn "cvs diff returned non-zero exit status $failed\n";
}

##</code><code>##

use Cwd;

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

...

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