Select Code to Download

Function run_script(q As String) As String
    ' To use this sub/function you must have
...
    run_script = False
    
End Function

use strict;

...

my $return = foo("World") . bar("Cruel World");
return $return;

Sub test_run_script()
    Debug.Print run_script("Perl Test")
End Sub