How depressing. I just grepped as much perl code as I could find and it's all boringly technical.

$< and die "Not running as root.\n";

or

my $gid  = getgrnam $group or die "$group not in /etc/group\n";

but I did find

-d $base or die "$base directory does not exist (time to panic)\n"; grinder