Select Code to Download

$splash->waitVariableX( [$millis, $destroy_splashscreen], \$v1, \$v2} 
+);

sub waitVariableX {

    use Tie::Watch;

    my ($parent, $millis) = (shift, shift); # @_ has list of var refs