That actually tells perl to exec the thing in $INFILE and read from it as if it were a pipe. like if I were to do:

$INFILE="/usr/bin/cat /var/adm/messages";
open($FH,"$INFILE|")
[download]