https://metacpan.org/pod/Bio::Graphics::DrawTransmembrane

##</code><code>##

use DrawTransmembrane;
$topology_final = 'IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII0IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIMMMMMMMMMOOOOOOOOOOOOOOOMMMMMMMIIIMMMMMMMMMOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOMMMMMMMMMIIIMMMMMMMMMOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOMMMMMMMMMIIIIIIIMMMMMMMMMMMOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOMMMMMMMMMMMIIIMMMMMMMMMMMOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOMMMMMMMMMMMIIIIIMMMMMMMMMOOOOOOOMMMMMMMMMMMIIIMMMMMMMMMMMOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOMMMMMMMMMMMIIIIMMMMMMMOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOMMMMMMMMMIIIMMMMMMMMMMMOOOOOOOOOOOOOOMMMMMMMMMMMIIIIIMMMMMMMMMOOOOOOOOOOOOOOOOOOOOOOOOOOOMMMMMMMMMMMIIIMMMMMMMOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOMMMMMMMMM';

@total_top = ();
if($topology_final=~/M/)	
{
	while ($topology_final =~/(.)\1*/g)
	{
		if ($1 eq "M")
		{
			my $start_TM = $-[0] + 1;
			my $end_TM = $+[0];
	
			push @total_top, $start_TM;
			push @total_top, $end_TM;
		}
	}
			

	my $image = DrawTransmembrane->new
	(
		-title=>"topology prediction image",
		-n_terminal=>'in',
		-topology=>\@total_top,
		-bold_helices=> 1,
		-bold_labels=>1,
		-text_offset=>-25,
		-helix_label=>'b',
		-outside_label=>'Extracellular',
		-inside_label=>'Periplasm',
		-membrane_label=>'Membrane',
		-helix_width=>30,
		-vertical_padding=>150,
		-horizontal_padding=>120,
		-n_terminal_offset=>50,
		-n_terminal_height=>220,
		-c_terminal_offset=>30,
		-c_terminal_height=>220,
		-helix_label=>'Sheet',
		-colour_scheme=>'yellow'
	);	

	open (OUTPUT, '>', 'test.png');
	binmode OUTPUT;
	print OUTPUT $image->png; 
	close (OUTPUT);
}

##</code><code>##

http://bioinformatics.biol.uoa.gr/TMRPres2D/screens/big4.png