$main->fileevent(\*STDERR,'readable',[\&tackle_err]);

sub tackle_err{
        $_ = <STDERR>;
        my $error_window = $main->Toplevel();
        $error_window -> Label (
                -text => $_
        )->pack;
        $error_window -> Button (
                -text => "OK",
                -command => sub {$error_window->destroy}
        )->pack;
}


##</code><code>##

Use of uninitialized value in <HANDLE> at /usr/lib/perl5/site_perl/5.6.1/i386-linux/Tk/Event/IO.pm line 46.