Select Code to Download

Filesystem           1K-blocks    Used Available Use% Mounted on
/dev/mapper/vg_mail-lv_var
                      94959436 1415576  88713448   2% /var

#!/usr/bin/env perl 
use strict;
...
my @df = `df -P /var`;
my ($used, $free) = (split (/\s+/, $df[1]))[2,3];
print "used $used, free $free\n";