open my $fh, "| ./setup.sh" or die $!;

# print $fh "$_\n" for qw(a b c ...);