#!/USR/BIN/PERL

MY $R = SHIFT;
$R->SEND_HTTP_HEADER;

LOCAL *FH;
OPEN FH, $R->FILENAME OR DIE $!;
$R->SEND_FD(*FH);
CLOSE FH;