...
my @cmd = (cat => ( '/etc/passwd' ));
open (IFILE, '-|') || exec @cmd;
...