#!/usr/bin/perl

use strict;
use warnings;

@ARGV = ('file2.txt', 'file4.txt', 'file15.txt');

open SEL, '>', 'selected.txt' or die $!;

while (<>) {
  print SEL;
}