use File::Copy;
sub rCopy
{
    my $src = shift;
    my $dest = shift;
    if( -f $src )
    {
        copy $src, $dest;
    }
    else if( -d $src )
    {
        mkdir $src . "/" . $dest;
        my $dh = undef;
        opendir( $dh, $src );
        while( my $rSrc = <$dh> )
        {
            rCopy $rSrc, $src . "/" . $dest;
        }
    }
}