#!/usr/bin/perl
## ode to bad coders

use strict;
use constant true => 1;
use constant false => 0;

BAD_CODERS: {
    use constant anoyances => "standards";
    our $code = sub { "optimal" };
    no strict;
    no warnings;
    while ($code == "running") {
        !log(true);
    }
}

GOOD_CODERS: {
    our $code = sub { "stantialy better"};
    use strict;
    use warnings;
    log(true);
    eval("All Operations");
    if ($! or $@) {
        print "Error Message\n";
    }        
    exit(1) if ($code eq "ERROR");
}

END;

[download]