#!/usr/bin/perl

use 5.008;
use strict;
use warnings;

sub doomsday {
   my $day = shift || 4711;
   if ($day == 42) { # Weltuntergang beim 42. Tag! :P
     return "0 but true"; # Untergang ist wahr, Welt is Null
   }
   else {
	 return undef; # false
   }
}

print 
	doomsday(42) # Welt kaputt bei 42?
	? 'BUMM'
	: 'W3l7 3xist|3rt n0ch';