given { when {} }

Wenn man in Perl eine switch/case ähnliches Konstrukt nutzen möchte ist das schon ein wenig haarig. Vor allem dann wenn man zwischen Debian/Squeeze bis Debian/Stretch alles supporten möchte.

Es bleiben einem nur Versionabhängige use statements.

use if $] > 5.10, "experimental" => qw/smartmatch/;
use if $] <= 5.10, "feature" => qw/switch/;

Und schon darf das script given { when {} } benutzen.