while (<STDIN>) { ... }

# or

{
  local @ARGV;
  while (<>) { ... }
}