package File::Copy::Recursive;

use strict;
use warnings;

use Carp;
use File::Copy; 
use File::Spec; #not really needed because File::Copy already gets it, but for good measure :)

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(fcopy rcopy dircopy);
our $VERSION = '0.05';
sub VERSION { $VERSION; }

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

##</code><code>##

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;
............