use IPC::Open2 qw( open2 );
open(my $fh_out, '>', 'data/test.txt') or die;
my $pid = open2('>&'.fileno($fh_out), '<&STDIN', @CreateList);
waitpid($pid, 0);