$ cat debugger.pl use strict; use warnings; use feature 'say'; my $c = shift; if ($c == 1) { say 1; } elsif ($c == 2) { say 2; } elsif ($c == 3) { say 3; } else { say "something else"; }