Use Symbol;
   ...
my $handle = gensym();
my $pid;
if ($pid = open $handle, "-|") {
} else {
}