Mega Code Archive

 

Categories / Perl / Language Basics

 

Quick Sum

#!/usr/bin/perl use warnings; use strict; my $total=0; $total += $_ for @ARGV; print "The total is $total\n";