#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
use Math::PercentChange qw(f_percent_change);

my $from = 10;
my $to   = 15;
say f_percent_change($from, $to, "%.03f");

__END__

$ perl test.pl
50.000%