Help for this page
use strict; use GD; ... open(FILE, ">text1.jpg") || die "Cannot open text1.jpg: $!\n"; print FILE $image->jpeg;
<img src="text1.jpg">