sub rootMeAndDoStuff(){
        my $rootID = getpwnam("root");
        if (not ($rootID eq $<)){
               print "U have to be root to do the following ...\n";
               system "su -c $PartToDoAsRoot";
        }
}