Spice up your Perl programs with some witty Mortal Kombat error routines. Guaranteed to wow your friends, or your money back!
package Mortal::Kombat;
  
require Exporter;
@ISA = qw( Exporter );
@EXPORT = qw( fatality );

sub fatality (@) { die @_ }
  
package victory;
   
sub flawless { exit }
  
1;

[download]
Now you can use flawless victory; instead of exit 0;, and fatality instead of die.

Replies are listed 'Best First'.

Back to Cool Uses for Perl