use strict;
use warnings;
use utf8;
use Encode;
use MIME::Base64;

sub encode_header {
    '=?ISO-8859-1?=' . encode_base64( encode('iso-8859-1', shift), '' ) . '?=';
}
print encode_header("!Hey‘ This is a αινσϊδλοφόρΡ mail!");