#!/usr/bin/perl -w
use IO::Handle;
my $handle = IO::Handle->new;
my $pid = open($handle, 'command & |') or die $!;
print $pid;