diff --git a/.travis.yml b/.travis.yml
index e200c91..56c5cef 100644
--- a/.travis.yml
+++ b/.travis.yml
@@ -13,9 +13,20 @@ perl:
   - "5.26"
   - "blead"
 
+env:
+  - WITHOUT_RECOMMENDS=0
+  - WITHOUT_RECOMMENDS=1
+
 matrix:
   allow_failures:
     - perl: blead
+  exclude:
+    - perl: "5.10"
+      env: WITHOUT_RECOMMENDS=1
+    - perl: "5.12"
+      env: WITHOUT_RECOMMENDS=1
+    - perl: "5.14"
+      env: WITHOUT_RECOMMENDS=1
 
 sudo: false
 
@@ -27,6 +38,11 @@ before_install:
   - build-dist
   - cd $BUILD_DIR
   - cpan-install ExtUtils::MakeMaker~6.68
+  - if [ "$WITHOUT_RECOMMENDS" = "1" ]; then
+        for f in "META.json" "META.yml" "Makefile.PL"; do
+            cat $f | grep -P -v 'Filter::signatures|MIME::Detect|Text::CleanFragment|^recommends:' > $$ && mv -f $$ $f;
+        done;
+    fi
   - cpan-install --deps
 
 script:
diff --git a/META.json b/META.json
index eed6c73..05e34bc 100644
--- a/META.json
+++ b/META.json
@@ -34,12 +34,14 @@
          "requires" : {
             "Carp" : "0",
             "Data::Dumper" : "0",
-            "Filter::signatures" : "0.04",
             "JSON" : "0",
-            "MIME::Detect" : "0",
             "Test::More" : "0",
-            "Text::CleanFragment" : "0",
-            "perl" : "5.006"
+            "perl" : "5.010"
+         },
+         "recommends" : {
+            "Filter::signatures" : "0.10",
+            "MIME::Detect" : "0",
+            "Text::CleanFragment" : "0"
          }
       }
    },
diff --git a/META.yml b/META.yml
index be3961b..8c14878 100644
--- a/META.yml
+++ b/META.yml
@@ -24,12 +24,13 @@ provides:
 requires:
   Carp: '0'
   Data::Dumper: '0'
-  Filter::signatures: '0.04'
   JSON: '0'
-  MIME::Detect: '0'
   Test::More: '0'
+  perl: '5.010'
+recommends:
+  Filter::signatures: '0.10'
+  MIME::Detect: '0'
   Text::CleanFragment: '0'
-  perl: '5.006'
 resources:
   license: http://dev.perl.org/licenses/
   repository: git://github.com/Corion/HTTP-Upload-FlowJs.git
diff --git a/Makefile.PL b/Makefile.PL
index aaba03e..f031c14 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -42,7 +42,16 @@ my %module = (
                 file    => $main_file,
                 version => $main_version,
             }
-        }
+        },
+        prereqs => {
+            runtime => {
+                recommends => {
+                    'Filter::signatures' => '0.10', # For compatibility with Perl < 5.22
+                    'MIME::Detect'      => 0, # for user generated content
+                    'Text::CleanFragment' => 0, # we want to create clean local filenames
+                },
+            },
+        },
     },
     LICENSE             => 'perl',
     PL_FILES            => {},
@@ -51,13 +60,9 @@ my %module = (
     },
     PREREQ_PM => {
         'Carp' => 0,
-        'Filter::signatures' => '0.10', # For compatibility with Perl < 5.22
         'Test::More' => 0,
         'JSON'           => 0, # Just for the interface
         'Data::Dumper'      => 0, # for printing clean values to logfiles
-        
-        'MIME::Detect'      => 0, # for user generated content
-        'Text::CleanFragment' => 0, # we want to create clean local filenames
     },
     dist                => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
     clean               => { FILES => 'HTTP-Upload-FlowJs-*' },
diff --git a/example/plack-server.psgi b/example/plack-server.psgi
index 5a8159d..14452fc 100644
--- a/example/plack-server.psgi
+++ b/example/plack-server.psgi
@@ -42,6 +42,7 @@ my @parameter_names = (
     'flowChunkNumber', # The index of the chunk in the current upload.
                        # First chunk is 1 (no base-0 counting here).
     'flowTotalChunks', # The total number of chunks.
+    'flowCurrentChunkSize', # Current chunk size
     'flowChunkSize', # The general chunk size. Using this value and
                      # flowTotalSize you can calculate the total number of
                      # chunks. Please note that the size of the data received in
diff --git a/lib/HTTP/Upload/FlowJs.pm b/lib/HTTP/Upload/FlowJs.pm
index 6ffd1df..0464926 100644
--- a/lib/HTTP/Upload/FlowJs.pm
+++ b/lib/HTTP/Upload/FlowJs.pm
@@ -1,12 +1,9 @@
 package HTTP::Upload::FlowJs;
 use strict;
 use Carp qw(croak);
-use Filter::signatures;
-no warnings 'experimental::signatures';
-use feature 'signatures';
-use Text::CleanFragment 'clean_fragment';
+
+use HTTP::Upload::FlowJs::Utils qw(clean_fragment mime_detect);
 use Data::Dumper;
-use MIME::Detect;
 
 our $VERSION = '0.01';
 
@@ -226,7 +223,8 @@ fairly disk-intensive on some systems.
 
 =cut
 
-sub new( $class, %options ) {
+sub new {
+    my ( $class, %options ) = @_;
     croak "Need a directory name for the temporary upload parts"
         unless $options{ incomingDirectory };
 
@@ -236,18 +234,22 @@ sub new( $class, %options ) {
     $options{ minChunkSize } //= 1024;
     $options{ forceChunkSize } //= 1;
     $options{ simultaneousUploads } ||= 3;
-    $options{ mime } ||= MIME::Detect->new();
+    $options{ mime } ||= mime_detect();
     $options{ fileParameterName } ||= 'file';
     $options{ allowedContentType } ||= sub { 1 };
 
     bless \%options => $class;
 };
 
-sub incomingDirectory( $self ) {
+sub incomingDirectory {
+    my ($self) = @_;
+
     $self->{incomingDirectory};
 };
 
-sub mime($self) {
+sub mime {
+    my ($self) = @_;
+
     $self->{mime}
 };
 
@@ -268,7 +270,9 @@ object for inclusion with the JS side of the world
 
 =cut
 
-sub jsConfig( $self, %override ) {
+sub jsConfig {
+    my ( $self, %override ) = @_;
+
     # The last uploaded chunk will be at least this size and up to two the size
     # when forceChunkSize is false
     my $chunkSize = $self->{maxChunkSize};
@@ -289,7 +293,9 @@ sub jsConfig( $self, %override ) {
     };
 }
 
-sub jsConfigStr( $self, %override ) {
+sub jsConfigStr {
+    my ( $self, %override ) = @_;
+
     encode_json($self->jsConfig(%override))
 }
 
@@ -310,7 +316,9 @@ Returns needed params for validating request.
 
 =cut
 
-sub params( $self, $required_params ) {
+sub params {
+    my ( $self, $required_params ) = @_;
+
     my $params = $self->{_params} ||= {
         flowChunkNumber      => 1,
         flowTotalChunks      => 1,
@@ -348,7 +356,9 @@ and C<$self->{fileParameterName}> (default 'file').
 
 =cut
 
-sub validateRequest( $self, $method, $info, $sessionId=undef ) {
+sub validateRequest {
+    my ( $self, $method, $info, $sessionId ) = @_;
+
     # Validate the input somewhat
     local $Data::Dumper::Useqq = 1;
 
@@ -376,7 +386,7 @@ sub validateRequest( $self, $method, $info, $sessionId=undef ) {
         if( exists $info->{ $param } and $info->{ $param } !~ /^[0-9]+$/) {
             push @invalid, sprintf 'Parameter [%s] should be numeric, but is [%s]; set to 0',
                                 $param,
-                                Dumper $info->{$param}
+                                $info->{$param}
                                 ;
             $info->{ $param } = 0;
         };
@@ -408,7 +418,7 @@ sub validateRequest( $self, $method, $info, $sessionId=undef ) {
         if( exists $info->{ $param } and $info->{ $param } =~ m![/\\]! ) {
             push @invalid, sprintf 'Parameter [%s] contains invalid path segments',
                                 $param,
-                                Dumper $info->{$param}
+                                $info->{$param}
                                 ;
         };
     };
@@ -419,7 +429,7 @@ sub validateRequest( $self, $method, $info, $sessionId=undef ) {
         if( exists $info->{ $param } and $info->{ $param } =~ m![/\\]\.\.[/\\]! ) {
             push @invalid, sprintf 'Parameter [%s] contains invalid upward path segments [%s]',
                                 $param,
-                                Dumper $info->{$param}
+                                $info->{$param}
                                 ;
         };
     };
@@ -429,7 +439,7 @@ sub validateRequest( $self, $method, $info, $sessionId=undef ) {
         if( exists $info->{ $param } and $info->{ $param } =~ m![\x00-\x1f]! ) {
             push @invalid, sprintf 'Parameter [%s] contains control characters [%s]',
                                 $param,
-                                Dumper $info->{$param}
+                                $info->{$param}
                                 ;
         };
     };
@@ -526,7 +536,11 @@ chunk as indicated by C<$info>.
 
 =cut
 
-sub expectedChunkSize( $self, $info, $index=0 ) {
+sub expectedChunkSize {
+    my ( $self, $info, $index ) = @_;
+
+    $index //= 0;
+
     # If we are not the last chunk, we need to be what the information says:
     $index ||= $info->{flowChunkNumber};
     if( ! $info->{flowTotalChunks}) {
@@ -566,7 +580,9 @@ is passed, it will remove all partial files from the directory.
 
 =cut
 
-sub resetUploadDirectories( $self, $wipe=undef ) {
+sub resetUploadDirectories {
+    my ( $self, $wipe ) = @_;
+
     my $dir = $self->{incomingDirectory};
     if( ! -d $dir ) {
         mkdir $dir
@@ -592,7 +608,11 @@ the current chunk.
 
 =cut
 
-sub chunkName( $self, $info, $sessionPrefix=undef, $index=0 ) {
+sub chunkName {
+    my ( $self, $info, $sessionPrefix, $index ) = @_;
+
+    $index //= 0;
+
     my $dir = $self->{incomingDirectory};
     $sessionPrefix = '' unless defined $sessionPrefix;
     my $chunkname = sprintf "%s/%s%s.part%03d",
@@ -622,7 +642,11 @@ sub chunkName( $self, $info, $sessionPrefix=undef, $index=0 ) {
 
 =cut
 
-sub chunkOK($self, $info, $sessionPrefix=undef, $index=0) {
+sub chunkOK {
+    my ( $self, $info, $sessionPrefix, $index ) = @_;
+
+    $index //= 0;
+
     my @messages = $self->validateRequest( 'GET', $info, $sessionPrefix );
     if( @messages ) {
         return 500, @messages
@@ -645,7 +669,9 @@ sub chunkOK($self, $info, $sessionPrefix=undef, $index=0) {
 
 =cut
 
-sub uploadComplete( $self, $info, $sessionPrefix=undef ) {
+sub uploadComplete {
+    my ( $self, $info, $sessionPrefix) = @_;
+
     my $complete = 1;
     for( 1.. $info->{ flowTotalChunks }) {
         my( $status, @messages ) = $self->chunkOK( $info, $sessionPrefix, $_ ) ;
@@ -667,7 +693,11 @@ and the index are optional.
 
 =cut
 
-sub chunkFh( $self, $info, $sessionPrefix=undef, $index=0 ) {
+sub chunkFh {
+    my ( $self, $info, $sessionPrefix, $index ) = @_;
+
+    $index //= 0;
+
     my %info = %$info;
     $info{ chunkNumber } = $index if $index;
     my $chunkname = $self->chunkName( \%info, $sessionPrefix, $index );
@@ -686,7 +716,11 @@ and the index are optional.
 
 =cut
 
-sub chunkContent( $self, $info, $sessionPrefix=undef, $index=0 ) {
+sub chunkContent {
+    my ( $self, $info, $sessionPrefix, $index ) = @_;
+
+    $index //= 0;
+
     my $chunk = $self->chunkFh( $info, $sessionPrefix, $index );
     local $/; # / placate Filter::Simple
     <$chunk>
@@ -703,7 +737,9 @@ this MIME type. Unrecognized files will be blocked.
 
 =cut
 
-sub disallowedContentType( $self, $info, $session=undef ) {
+sub disallowedContentType {
+    my ( $self, $info, $session) = @_;
+
     my( $content_type, $image_ext ) = $self->sniffContentType($info,$session);
     if( !defined $content_type ) {
         # we need more chunks uploaded to check the content type
@@ -745,24 +781,31 @@ check the upload type.
 
 =cut
 
-sub sniffContentType( $self, $info, $sessionPrefix=undef ) {
+sub sniffContentType {
+    my ( $self, $info, $sessionPrefix ) = @_;
+
     my( $content_type, $image_ext );
 
     my( $status, @messages ) = $self->chunkOK( $info, $sessionPrefix, 1 );
-    if( 200 == $status ) {
-        my $fh = $self->chunkFh( $info, $sessionPrefix, 1 );
-        my $t = $self->mime->mime_type($fh);
-        if( $t ) {
-            $content_type = $t->mime_type;
-            $image_ext    = $t->extension;
-        } else {
-            $content_type = '';
-            $image_ext    = '';
-        };
 
-    } else {
-        # Chunk 1 not uploaded/complete yet
+    if ( $self->mime ) {
+        if( 200 == $status ) {
+
+            my $fh = $self->chunkFh( $info, $sessionPrefix, 1 );
+            my $t = $self->mime->mime_type($fh);
+            if( $t ) {
+                $content_type = $t->mime_type;
+                $image_ext    = $t->extension;
+            } else {
+                $content_type = '';
+                $image_ext    = '';
+            };
+
+        } else {
+            # Chunk 1 not uploaded/complete yet
+        }
     }
+
     return $content_type, $image_ext;
 };
 
@@ -792,7 +835,9 @@ sub sniffContentType( $self, $info, $sessionPrefix=undef ) {
 
 =cut
 
-sub combineChunks( $self, $info, $sessionPrefix, $target_fh, $digest=undef ) {
+sub combineChunks {
+    my ( $self, $info, $sessionPrefix, $target_fh, $digest ) = @_;
+
     my @unlink_chunks;
     my $ok = 1;
     for( 1.. $info->{ flowTotalChunks }) {
@@ -818,7 +863,9 @@ than one chunk.
 
 =cut
 
-sub pendingUploads( $self ) {
+sub pendingUploads {
+    my ($self) = @_;
+
     my @files;
     my %uploads;
 
@@ -858,7 +905,12 @@ It defaults to C<time>.
 
 =cut
 
-sub staleUploads( $self, $timeout = 3600, $now = time ) {
+sub staleUploads {
+    my ( $self, $timeout, $now ) = @_;
+
+    $timeout //= 3600;
+    $now     //= time;
+
     my $cutoff = $now - $timeout;
     my %mtime;
     my @files = reverse sort $self->pendingUploads();
@@ -902,7 +954,12 @@ will delete files from another instance.
 
 =cut
 
-sub purgeStaleOrInvalid($self, $timeout = 3600, $now = time ) {
+sub purgeStaleOrInvalid {
+    my ($self, $timeout, $now ) = @_;
+
+    $timeout //= 3600;
+    $now     //= time;
+
     # First, kill off all stale files
     my @errors;
     for my $f ($self->staleUploads( $timeout, $now )) {
diff --git a/lib/HTTP/Upload/FlowJs/Utils.pm b/lib/HTTP/Upload/FlowJs/Utils.pm
new file mode 100644
index 0000000..3bf05d8
--- /dev/null
+++ b/lib/HTTP/Upload/FlowJs/Utils.pm
@@ -0,0 +1,65 @@
+package HTTP::Upload::FlowJs::Utils;
+
+use strict;
+use warnings;
+
+use vars qw(@ISA @EXPORT_OK);
+
+require Exporter;
+@ISA = qw(Exporter);
+@EXPORT_OK = qw(clean_fragment mime_detect);
+
+use if $] >= 5.016, feature => qw(fc);
+use Unicode::Normalize;
+
+BEGIN {
+    # clean_fragment
+    {
+        eval { require Text::CleanFragment };
+        my $subname = __PACKAGE__ . '::clean_fragment';
+        no strict 'refs';
+        if ( $@ ) {
+            die "Need Text::CleanFragment or Perl >= 5.016\n\n" if $] < 5.016;
+
+            *{$subname} = \&clean_fragment_fallback;
+        }
+        else {
+            *{$subname} = \&Text::CleanFragment::clean_fragment;
+        }
+    }
+
+
+    # mime_detect
+    {
+        eval { require MIME::Detect };
+        my $subname = __PACKAGE__ . '::mime_detect';
+        no strict 'refs';
+        if ( $@ ) {
+            *{$subname} = sub { undef };
+        }
+        else {
+            *{$subname} = sub { MIME::Detect->new(@_) };
+        }
+    }
+}
+
+sub clean_fragment_fallback {
+    my @strings = @_;
+
+    for( @strings ) {
+        $_ = NFKD($_);
+        s/([\x{80}-\x{300}])/fc($1)/eg;
+
+        tr/['"\x{2019}]//d;     # Eliminate apostrophes
+        tr/\x{300}-\x{36f}//d;
+        s/[^a-zA-Z0-9.-]+/_/g;  # Replace all non-ascii by underscores, including whitespace
+        s/-+/-/g;               # Squash dashes
+        s/_(?:-_)+/-/g;         # Squash _-_ and _-_-_ to -
+        s/^[-_]+//;             # Eliminate leading underscores
+        s/[-_]+$//;             # Eliminate trailing underscores
+        s/_(\W)/$1/;            # No underscore before - or .
+     };
+    wantarray ? @strings : $strings[0];
+};
+
+1;
diff --git a/t/002_http_upload_disallowedContentType.t b/t/002_http_upload_disallowedContentType.t
index 64efe74..10b7cea 100644
--- a/t/002_http_upload_disallowedContentType.t
+++ b/t/002_http_upload_disallowedContentType.t
@@ -1,13 +1,23 @@
 #!perl -w
 use strict;
 use warnings;
-use Test::More tests => 3;
+use Test::More;
 use Data::Dumper;
 use File::Temp 'tempdir';
 use File::Copy 'cp';
 
 use HTTP::Upload::FlowJs;
 
+BEGIN {
+    eval 'use MIME::Detect';
+    if( $@ ) {
+        plan skip_all => 'No MIME::Detect installed';
+    }
+    else {
+        plan tests => 3;
+    }
+}
+
 my $tempdir = tempdir();
 
 my $called = 0;
diff --git a/t/003_http_upload_flowjs.t b/t/003_http_upload_flowjs.t
index 6b0b92c..a36cdfe 100644
--- a/t/003_http_upload_flowjs.t
+++ b/t/003_http_upload_flowjs.t
@@ -226,11 +226,17 @@ for my $chunk (@parts) {
     print $fh part($chunk);
     close $fh;
     push @uploaded_parts, $tempname;
-    
+
     my( $content_type, $ext ) = $flowjs->sniffContentType(\%info);
     if( exists $seen{1}) {
-        is $content_type, 'image/png', "Once we see the first chunk, we find the correct content type";
-        is $ext, 'png', "Once we see the first chunk, we find the correct extension";
+        if ( $flowjs->mime ) {
+            is $content_type, 'image/png', "Once we see the first chunk, we find the correct content type";
+            is $ext, 'png', "Once we see the first chunk, we find the correct extension";
+        }
+        else {
+            is $content_type, undef, "Unknown content type or no MIME::Detect installed";
+            is $ext, undef, "Unknown extension or no MIME::Detect installed";
+        }
     } else {
         is $content_type, undef, "Until we see the first chunk, we don't know the content type";
         is $ext, undef, "Until we see the first chunk, we don't know the extension";
@@ -316,9 +322,15 @@ for my $chunk (@parts, 2..parts) {
     close $fh;
     $uploaded_parts{ $tempname } = 1;
 
+
     my $res = $flowjs->disallowedContentType(\%info);
     if( exists $seen{1}) {
-        is $res, 'image/png', "Once we see the first chunk, we find the file is disallowed";
+        if ( $flowjs->mime ) {
+            is $res, 'image/png', "Once we see the first chunk, we find the file is disallowed";
+        }
+        else {
+            is $res, undef, "Unknown content type or no MIME::Detect installed";
+        }
     } else {
         is $res, undef, "Until we see the first chunk, we don't know if the file is disallowed";
     };