#!/usr/bin/perl -w
#
use Filesys::DiskFree;
#
$disc = '/dev/vx/dsk/var' ;

new Filesys::DiskFree ;

$handle->avail($disc) ;