open(INPUT, "<", $input) or die ...
  open(OUTPUT, ">", $output) or die ...
or
  open(INPUT, "< $input") or die ...
  open(OUTPUT, "> $output") or die ...