Select Code to Download

sub printString {
    my ($str) = @_;

    print $str;
}

printString("Hello world\n");

if ($num == 1) {
    sub1();
} elsif ($num == 2) {
    sub2();
} ...

use strict;
use warnings;
...
sub sub1 {
    print "Handling case 1\n";
}