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