use HTTP::Request::Common;
use LWP::UserAgent;
use JSON -support_by_pp;
-use Media::Type::Simple;
+#use Media::Type::Simple;
use strict;
my $data = join("", <FILE>);
close FILE;
- my $mime = type_from_ext(($file =~ m/([^.]+)$/)[0]);
+# my $mime = type_from_ext(($file =~ m/([^.]+)$/)[0]);
+ my $mime = 'text/tab-separated-values';
$ua -> default_header('Slug' => $file);