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

if ($expression) {
    do_something;
}
else {
    do_fallback;
}