my $shell= '/usr/bin/ksh93';
my $command= <<SHELL;

typeset -A SIZE_MIN

SIZE_MIN=([/var]=2097152
          [/tmp]=1048576
          [/home]=1048576)
ISHACMP=$(lslpp -Lqc cluster.*.server.rte 2>/dev/null | grep -c cluster)

for fs in ${!SIZE_MIN[*]}; do
    fssize=$(df -k $fs | grep -v Filesystem | awk \'{print $2}\')
    if (( $fssize < ${SIZE_MIN[$fs]} )); then
        print "BAD;$fs is less than minimum size ($SIZE_MIN[$fs]}), increase to minimum size"
    elif (( $fssize == ${SIZE_MIN[$fs]} )); then
        print "GOOD;$fs is at minimum size (${SIZE_MIN[$fs]} kb)"
    else
        print "GOOD;$fs is greater ($fssize) than minimum (${SIZE_MIN[$fs]})"
    fi
done
SHELL

my @results= qx($shell -c '$command');