Test if perl script is running as root

gistfile1.pl

#! /usr/bin/perl -w

use Carp;

my $username = getpwuid($<);
my $testuser = 'root';

if ( $username eq $testuser ){
  print 'yep'
} else {
  croak "current user is $username need to run this as $testuser"
}