my $cmd_1 = "sudo df -h |grep /var |awk '{print \$2}' | sed -e 's/.\$//'";   
my $cmd_2 = "sudo df -h |grep /var |awk '{print \$3}' | sed -e 's/.\$//'";   

my $result_used = qx/ $cmd_1 /; #$result_used shows 1.4
my $result_free = qx/ $cmd_2 /; #$result_free shows 85
##</code><code>##

my @df = `df /var`;
my ($used, $free) = (split (/\s+/, $df[1]))[2,3];