eval { 
  $parser->filer->purge; 
};
if ($@) { warn ("Error: Cant purge $@") }