my $foo = qr(a);
    open FH , "| cat " ;
    open STDOUT, ">&FH";