user-tools/mime-header-decode

   1 #!/usr/bin/env perl
   2
   3 =pod
   4
   5 =head1 NAME
   6
   7 mime-header-decode - Decode MIME-encoded stream on stdin line-by-line
   8
   9 =cut
  10
  11
  12 use Encode;
  13 while(<STDIN>)
  14 {
  15         print encode("UTF-8", decode("MIME-Header", $_));
  16 }