Select Code to Download

sub new {
  my ($self, $email) = @_;
  my $class = ref($self) || $self;
  bless { email => $email }, $class
}