Select Code to Download

#!/usr/bin/perl 
use strict; 
...
print $h; 
print "</body></html>\n"; 
$dbh->disconnect;

$h .= qq{<img src="$name" width="300" height="300">};