The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
    if ( $dest =~ /$src/ ) {
        print
            "Destination path: '$dest'$/ can not be under$/"
            . "source path: '$src'$/... exiting.$/";
        exit;
    }