package File::Copy::Recursive;

use strict;
use warnings;

use Carp;
use File::Copy;
use File::Spec;

require Exporter;

use vars qw(@ISA @EXPORT);
@ISA = qw(Exporter);
@EXPORT = qw(fcopy rcopy dircopy);

our $MaxDepth = 0;
our $KeepMode = 1;
............