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