my $mainWindow = MainWindow->new;
share ($mainWindow);

Error:
Invalid value for shared scalar at /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/Tk/Widget.pm