[Perl] gestione eccezione

[basileus_82]

ciao a tutti

per gestire le eccezioni uso eval

vorrei che quando viene catturata l'eccezione, non venisse stampato nulla, ma solo si vedesse la messagebox

ora come ora mi da entrambi

ho provato anche

die "$!"

al posto di

return

ma nulla

il pezzo di codice di interesse è qui sotto

---
eval { local $@; $workbook = $template->SaveAs($out); 1 } 
 or do {$mw -> messageBox(-icon =>'warning',-message=>"File aperto, chiudilo e ritenta",-type=>'ok'); return ; }; 
---