Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...
    
    $sp->Splash(10000);
}

$splash = Tk::Splash->Show($image, $width, $height, $title,
                                   $overrideredirect);