Help for this page
<%filter> s/^(.*?)$/tidy($1)/se; $filter
sub tidy { my ($output) = @_; ... close READER; return $output; }
sub tidy { my ($output) = @_; ... unlink $tmp_file; return $output; }