CREATE OR REPLACE FUNCTION immortal() RETURNS trigger AS '
    if ($_TD->{"old"}{"v"} eq $_TD->{"args"}{0}){
        return "SKIP"; # Skip DELETE command
    } else {
        return;        # Proceed DELETE command
    }
' LANGUAGE 'plperl';