Select Code to Download

use strict;
use warnings;
...
    return $ct{'text/html'} if exists $ct{'text/html'};
    return $parts[0];
}