Select Code to Download

if ($whatever) {
  $self->{callback} = $self->can('a');
} else {
  $self->{callback} = sub {1};
}

open F, '>', $self->{filename};
if ($other->can('fetch')) {
  print F, $other->fetch();
...
  }
}
close F;