Select Code to Download

#!/usr/bin/perl
use warnings;
...
my $modal = $tl2->Dialog( -title => '2/dialog');
$modal->Show(-global);
MainLoop();