Select Code to Download

use Path::Class qw( file );

...
        ->relative('A:\\B.CD(E)~!@#$%^&'),
    "\n"
);

use File::Spec::Functions qw( abs2rel );

...
        'A:\\B.CD(E)~!@#$%^&'),
    "\n"
);