open IN, '<', $filename or die "...";
$parser->filter(\*IN);