#perl 5.22.1

my $start = now;

sub div($a, $b){
    my $r;
    try {
        $r = $a / $b;
        CATCH {
           print "Division por cero !";
        }
    }
    return $r
}


(^100000).pick(1000);
say now - $start;
say div(100,0);