use WWW::Babelfish;

my $obj = new WWW::Babelfish	( 
				service => 'Yahoo',
				agent 	=> $user_agent, 
				);
 
if (defined($obj))
{
	$text = $obj->translate	( 
				'source' 	=> 'Dutch',
                                'destination' 	=> 'English',
                                'text' 		=> $text,
                                'delimiter' 	=> "\n\t",	
				);

	$text = "Could Not Translate: " . $obj->error if(! defined($text))
}
else
{
	$text = "Translation server unavailable"
}