Select Code to Download

    sub print_multiple {
        my ($count, $string, $format) = @_;
...
    }

    &print_multiple (5, 'hello, world.', 'bold');

    sub print_multiple {
        my $b = shift;
...
    
    &print_multiple ($block);