#!/usr/bin/perl                                            
                                                           
use strict;                                                
use warnings;                                              
                                                           
# legs of one ant                                          
sub AN_ANT_LEGS { 6 };                                     
                                                           
print "1 ant has ".AN_ANT_LEGS." legs\n";                  
print "7 ants have ".(AN_ANT_LEGS * 7)." legs\n";          

