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