Select Code to Download

Script1:
{
...
   `script2 a b c`; 
    ... do more stuff
}

Script2:
{
...
    ... do more stuff
}

Working on table1:
changing A to B:
dropping table2:
table dropped:

my $string = `script2 a b c`;
print "\n $string \n";