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