#!/usr/bin/perl #overkill: use CGI; use CGI::Carp qw(fatalsToBrowser); my $INCOMING = CGI->new(); #try to save the world: dodge_bomb(); sub dodge_bomb { my $terrorist_detonation = $INCOMING->param("bomb") || "dud"; die "Fatal error! Bombbarded by $terrorist_detonation" if $terrorist_detonation ne "dud"; #you lucky scoundrel, you... print "Content-Type: text/html\r\n\r\n"; print < It's Da Bomb!

Shew! close one...or did you even try to save the world?

DOC }