Select Code to Download

    #!/usr/local/bin/perl

...
    while (<>) { $tot += $_ }
    print "$tot\n";

    #!/usr/bin/perl -pl

    $tot += $_ }{ $_ =+ $tot