my $handle = IO::Handle->new;
my $pid = open($handle, 'command & |') or die $!;