Select Code to Download

#!/usr/bin/env perl 
use strict;
...
    my $decoded = decode ("MIME-Header", $subj);
    print encode ("UTF-8", $decoded) . "\n";
}