Select Code to Download

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

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

...
}

print "bar\n";

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