sub _get_mime_map { my $mime_map = { '' => ["application/octet-stream","Unknown binary format"], # BEGIN these are non-standard 'aw' => ["application/applix","Applix Word Document"], 'as' => ["application/applix","Applix Spreadsheet"], 'ag' => ["application/applix","Applix Graphic"], # END these are non-standard 'ai' => ["application/postscript","Postscript ai File"], 'aif' => ["audio/x-aiff","Aif File"], 'asc' => ["text/plain","ASCII Text File"] return($mime_map); }