#!/usr/bin/perl

open(FILES, "<FILES") or die "Can't open FILES\n";

while (<FILES>) {
  chomp;
  my $f = $_;
  system("cp $f $f.test");
}
