use strict;
use warnings;
while (my $line = <FILES_TO_RUN>) {
  chomp $line;
  die ("File does not exist") unless (-e $line);
  die ("File cannot be executed") unless (-x $line);
  system(qq($line));
}