my $cmd = '/usr/bin/file ' . $q->param('object');
my $mimetype = `$cmd`;