Select Code to Download

#!/usr/bin/perl

...
    my $c = sprintf("%0.2f",$b - (18.01528 * ($x - 1)));
    return $c;
}