Help for this page

Select Code to Download

Select or download this
```
$ct{$_->content_type} = $_ for @parts;
```

Select or download this

for (@parts) {
    (my $c = $_->content_type) =~ s/;.+//;
    $ct{$c} = $_;
}