画像をリサイズしてアップロードする方法

画像をリサイズしてアップロードする方法
（順序は逆であるが、結果的にそうなる方法を採用した）
参考サイト

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1189807896
http://blog.dtpwiki.jp/dtp/2007/10/cgipm_e5c6.html
http://www.hidekik.com/cookbook/p2h.cgi?id=upload
http://webings.net/perl/imageresize/
http://www.abe-tatsuya.com/web_prog/perl_cgi/file_upload.php
http://d.hatena.ne.jp/n80/20080415/1208265508

#DBに書き込む前処理
my $t_start = “<table><tr>”;
my $http_tag_start = “\<td><img src=\”http://www.　　.com/chouka/img/”;
my $http_tag_end = “\” width=\”200\” height=\”200\” border=\”0\”></td>”;
my $t_end = “</tr></table>”;

本番**********************************************************
#DBに書き込む前処理
my $t_start = “<table><tr>”;
my $http_tag_start = “<td><img src=\”http://www.　　.com/chouka/img/”;
my $http_tag_end = “\”></td>”; →高さと幅の指定を外すことで実現
my $t_end = “</tr></table>”;