my $script = 'my_script.tcl';
system($script) == 0
    or die "Couldn't launch '$script': $! / $?";