sub import_file
{
  my $self = shift;

  my $query = $self->query();
  my upload = CGI::Uload->new($self);
  my %file = ( name => $upload->file_name("upload"),
               type => $upload->file_type("upload"),
               handle => $upload->file_handle("upload"),
               mime => $upload->mime_type("upload"),
             );