use Tk;
my $mw1 = MainWindow->new;
my $mw2 = MainWindow->new;
my $p1 = $mw1->Photo(-file => Tk->findINC("Xcamel.gif"));
$mw2->Label(-image => $p1)->pack;