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

##</code><code>##

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

##</code><code>##

$parser->filterfile($filename);