my ($message, $trans);
     my $tag_1 = getTag($self->{origin}->GetValue());
     my $tag_2 = getTag($self->{destination}->GetValue());
     eval {
     $object = Lingua::Translate->new( src => $tag_1, dest => $tag_2 )
+ or die "Cannot Create an instance";
     $message = $self->{origin_text}->GetValue();
     $trans =  $object->translate($message);
     };
     if ($@){$self->{translated_text}->SetValue("An Error occured : $@
+  \n Perhaps your not online.");
     }
     else{
     $self->{translated_text}->SetValue($trans);
     }
[download]