盗聴

if ( defined $fh ) { binmode $fh; $c->res->body( $fh ); }