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