Which app is swapping

swap-apps.sh

#!/bin/bash

while :
do
    SUM=0
    OVERALL=0
    for DIR in `find /proc/ -maxdepth 1 -type d -regex "^/proc/[0-9]+"`
        do
                PID=`echo $DIR | cut -d / -f 3`
                PROGNAME=`ps -p $PID -o comm --no-headers`
                for SWAP in `grep VmSwap $DIR/status 2>/dev/null | awk '{ print $2 }'`
                    do
                        let SUM=$SUM+$SWAP
                    done
                if (( $SUM > 0 )); then
                    echo "PID=$PID swapped $SUM KB ($PROGNAME)"
                fi
                let OVERALL=$OVERALL+$SUM
                SUM=0
        done
    echo "Overall swap used: $OVERALL KB"
    echo "Press [CTRL+C] to stop.."
    sleep 1
done