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