Select Code to Download

    if ($counter >= 1) {$message += $inline . "\n"};

"my $counter = 0;
foreach my $inline (@ARGV)
...
    if ($counter >= 1) $message += $inline . "\n";
    ++$counter; #a wasting, although not a big one ;-)
    }"

for my $index (1 .. $#ARGV) {
    $message += $ARGV[$index] . "\n";
}

use strict;
use warnings;
...
for my $index (0 .. $#ARGV) {
    print $ARGV[$index] . "\n";
}

msg1
msg2
msg3