open(QSTAT, 'qstat|') or die("failed to start qstat ($!)");

    while (<QSTAT>) {
        # Parse output from qstat
    }

    close QSTAT or die("close qstat ($!)");