Select Code to Download

#!/usr/bin/perl
use warnings;
no warnings 'uninitialized';
...
close "$out";

exit;

#!/usr/bin/perl
use strict;
...
    $sum += $line;
}
print "The total value is $sum\n";