Select Code to Download

use Tk;
require Tk::mySplashScreen;

...
    sleep 1;
}
$s -> destroy;

use Tk;

use strict;
...
}
$m -> destroy;
print "Done\n";