open(my $fh_out, '>', 'data/test.txt') or die;
open(my $pipe, '|-', @CreateList) or die;
print $fh_out $_ while <$pipe>;