<code>
package ExtractEmailTLD;

use 5.008007;
use strict;
use warnings;


our $VERSION = '0.01';

sub extract {
  my $email = shift @_;
  if ( $email =~ /.+@.+\.(.+)$/ ) {
  return $1;
  } else {
  return 1;
  }  
}
# Preloaded methods go here.

# Autoload methods go after =cut, and are processed by the autosplit program.

1;
</code>