$ perl -MO=Deparse -e'my $pid = open my $fh, "-|", "sleep 3; echo aaaa" // die $!;'
my $pid = open(my $fh, '-|', 'sleep 3; echo aaaa');
-e syntax OK