Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. Quick Sum
#!/usr/bin/perl
use warnings;
use strict;
my $total=0;
$total += $_ for @ARGV;
print "The total is $total\n";