open (CSV, ">", $ADDListPresent) or die $!;
my @CreateList = ( '/usr/bin/sudo',
                   '-u', 'homer',
                   '/usr/bin/ssh', qq($HomerServer),
                   '/bin/ls',
                  );
system("$CreateList > data/test.txt");
close CSV;