#!/usr/bin/perl
$args = join ' ', @ARGV;
use WWW::Babelfish; 
$obj = new WWW::Babelfish( 'agent' => 'jaim' );
$message = $obj->translate( 'source' => 'Spanish',
			    'destination' => 'English',
			    'text' => $args);
print "$message";



