Select Code to Download

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

my @lines = `$script`;