Select Code to Download

use strict;
use warnings;
...
my $testb = ( $avail / ( $avail + $used ) ) * 100;

print "testa: $testa\ntestb: $testb\n";