open my $oldout, '>&STDOUT' or die "Duping STDOUT: $!\n";
open my $olderr, '>&STDERR' or die "Duping STDERR: $!\n";
open my $log, '>errorlog'   or die "Opening errorlog: $!\n";
while(<LISTFILE>) {
   
  chomp($FILE=$_); # You do probably want to remove the newline 
    
  # Let's do it 
  print "Importing $FILE.\n";
  open STDOUT, '>&', $log   or die "Redirecting STDOUT: $!\n";
  open STDERR, '>&', $log   or die "Redirecting STDERR: $!\n";
  system("mysql < $FILE");
  open STDOUT, '>&', $oldout or die "Restoring STDOUT: $!\n";
  open STDERR, '>&', $olderr or die "Restoring STDERR: $!\n";
  print "Sleeping for 5.\n";
  system('sleep 5');
}
close $log;