Select Code to Download

    use File::Spec;
    $rel_path= File::Spec->abs2rel( $abs_path );

    use File::Spec::Functions qw( abs2rel );
    $rel_path= abs2rel( $abs_path );