Deterministic guarded commands for Perl
