print "$foo is divisable by $bar" unless $foo % $bar;