use Tk::ErrorDialog;

sub tackle_err{
        my $label_text = shift;
        my $error_window = $main->Toplevel(
                                        -title => "Error!!"
                                );
        $error_window -> Label (
                                -text => $label_text
                        )->pack(
                                -side=>"top", 
                                -expand=>1,
                                -padx=>100, 
                                -anchor=>'n'
                        );
        $error_window -> Button (
                                -text => "OK",
                                -command => sub {$error_window->destroy}
                        )->pack;
}