#!/usr/bin/perl

use strict;
use warnings;

my $owner = (stat $0)[4];
my $run_by = $<;

if( $run_by != $owner ) {
    print "Hey, das Skript laeuft nicht unter dem Besitzer-Account\n";
}