$ perl -e 'do "UserScenarioDesc.pl"; get_user_scenario_desc("http://some_linkXYZ.html","testdare/UserScenarioDAREtestCkmadm");'

##</code><code>##

#!/usr/bin/perl   # 830179.pl

sub foo {
    print "foo(): @_\n";
}

print "bar\n";

##</code><code>##

$ perl -e 'do "./830179.pl"; foo("arg1", "arg2");'
bar
foo(): arg1 arg2