Select Code to Download

sub new {
    my $class = shift;
    croak "incorrect number of arguments" if @_ % 2;
    ...
}

print "$foo is divisible by $bar" if $foo % $bar == 0;