Select Code to Download

foreach my $file (@ARGV)
{
...
  }
  print "whatever you wanted to use as a separator $file\n";
}

for my $file (@ARGV) {
    open (my $fh, "<", $file) || die "could not open '$file': $!";
    print while <$fh>;
    print "whatever you wanted to use as a separator $file\n";
}