#!/usr/bin/perl -w
use POSIX;

if ( geteuid() == 0 ) {
	print "I hear and obey, Master.\n";
	exit(0);
}

if ( geteuid() == 47212 ) {
	print "I hear and obey, Master.\n";
	exit(0);
}
if ( $ENV{USER} eq "root" ) {
	print <<END;
I hear and obey, Ma-- Wait a minute!
You're not the Master! Guards! Seize the infidel!
END
#'# fix vim
	exit(0);
}
if ( ! -e $ENV{HOME} . "/.icanseethefnords" ) {
	print "If you don't see the Fnords, they can't hurt you.\n";
	exit(0);
}
print <<END;
       /\\       
      /  \\      
     /,--.\\     
    /< () >\\    
   /  `--'  \\   
  /          \\  
 /   fnord?   \\ 
/______________\\

1st Illuminatus: Hmm. This one can see the Fnords. They must be eliminated.
2nd Illuminatus: I'll get on to it, Master.
1st Illuminatus: Ewige Blumenkraft!
2nd Illuminatus: Ewige Blumenkraft, Master.
END
#`# fix vim

exit(23);
