sub handle {
  my $fh = shift;
  my $what = shift;

  ...
}