#!/usr/bin/perl

#use Mail::Internet;
use MIME::Decoder;

$decoder = new MIME::Decoder 'quoted-printable' or die "unsupported";
$decoder->decode(\*STDIN, \*STDOUT);


#open(FILE, "/home/lochon/public_html/tv.html");
#$mi_obj = new Mail::Internet(\*FILE);
#close(FILE);
#$mi_obj->print_body(\*STDOUT);