perl

BASH:

#!/bin/bash
if [[ $EUID -ne 0 ]]; then
   echo "This script must be run as root" 1>&2
   exit 1
fi

PERL:

#!/usr/bin/env perl
if (0 == $> || 0 == $<) {
     # running by root
} else {
     # not running by root
}