sub generate_image {
   
    require GD::Simple;
   
    my ($email, $settings) = @_;
   
    my $image_width = get_img_width($email);
   
    my $gd_img      = GD::Simple->new($image_width,15,1);
    my $ttf         = catfile( $FindBin::RealBin, 'res', 'INFECTED.ttf' );
    $gd_img->font($ttf);
    $gd_img->transparent('white');
   
    $gd_img->moveTo(3,11);
    $gd_img->fgcolor('blue');  #dimgray
    $gd_img->fontsize(10);
    $gd_img->string($email);
   
   
    return $gd_img->png();
   
}