RosettaCodeData/Task/Conditional-structures/Perl/conditional-structures-4.pl

if ($expression1) {
    do_something;
}
elsif ($expression2) {
    do_something_different;
}
else {
    do_fallback;
}