use strict; use warnings; use integer; use constant number => 5; #### print "this is the quotient",int $i/5,"\n";