open( my $fh, '-|', 'test.pl')
  or die "Error, cannot start command: $!";