Help for this page
#!perl -w $| = 1; ... </html> END_HTML
#!perl -w $| = 1; ... } close($img) or die("close failed: $!");