frobnicate( $_ ) for `cat foobar.txt`;

##</code><code>##

{
  local @ARGV = 'foobar.txt';
  frobnicate( $_ ) while <>;
}

##</code><code>##

frobnicate( $_ ) while <>;

##</code><code>##

#!perl -n
frobnicate( $_ );