#!/usr/bin/perl -w

use MIME::Words qw/encode_mimewords/;
print encode_mimewords("Hola, Seņor!");