1use Test::More tests => 1; 2 3use strict; 4use FEAR::API -base; 5 6url('http://tw.yahoo.com')->(); 7document->MIME_encode; 8#print document->as_string; 9document->MIME_decode; 10like(document->as_string, qr'yahoo'); 11