$ perl test.pl
main foo 200