[perl] Problema comando die con Tk

[basileus]

sto cercando di fare uno script che passati 2 file excel verifica se tali file sono uguali, per quantop rigurda fogli. righe colonne, e valori celle

Volevo fare una cosa con le librerie grafiche Tk

il programma funziona bene senza usare una interfaccia grafica

utilizzando tale interfaccia, mi da errori ogni volta che trova un :

die "";

mentre il die viene gestito senza problemi con lo script semplice

l'errore è del tipo:

Tk::Error: errore
 Tk callback for .frame.button2
 Tk::__ANON__ at C:/Perl/site/lib/Tk.pm line 250
 Tk::Button::butUp at C:/Perl/site/lib/Tk/Button.pm line 175
 <ButtonRelease-1>
 (command bound to event)

errore è la stringa che passo a die
die "errore";

il fatto è che la funzione principale sta dentro una routine che richiamo cliccando un bottone sull'interfaccia grafica!!

possibili soluzioni??

grazie

[basileus]

risolto!!

invece di usare die, ho usato last