gistfile1.txt

#! /usr/bin/env perl
use Mojolicious::Lite;
use Test::More;
use Test::Mojo;
use File::MimeInfo;

post '/' => sub {
  my $self = shift;
  my $ct = $self->req->upload('bin')->headers->content_type;

  my $out = defined $ct ? $ct : "ct undef";
  $self->render(text => $out);
};

my $ear_type = mimetype('foo.ear');

my $t = Test::Mojo->new;
$t->post_ok( '/' => form => { bin => { file => 'foo.ear',
                                       'Content-Type' => $ear_type } } )
  ->status_is(200)
  ->content_like(qr|application/octet-stream|);

done_testing();