perl -MGetopt::Long -e 'use Frob; GetOptions("foo=s",$foo); frobnicate($foo,$_) while <>' --foo="Some additional data you might pass also as a variable"