sub get_file
{
  my $self = shift;
  my $filename = shift;
  my $outputdir = shift;

  my $ofh = IO::File->new(File::Spec->catfile($outputdir, $filename), 'w');
  $self->get_filehandle($ofh);
}