Select Code to Download

#!perl-w

...
$year=104;

print "$day\-".($month+1)."-".($year+1900)."\n";

print $day,"\-",($month+1),"-",($year+1900),"\n"; # less expensive

#! perl-w 

...
            'none'
        );
        cmpthese( $results ) ;

       
                 Rate    Commafied Concatinated
Commafied     74894/s           --         -71%
Concatinated 260000/s         247%           --

print $day."\-".($month+1)."-".($year+1900)."\n"; # less expensive