perlを使用したcgiでの画像アップロードについて
いつもお世話になっております。
私自身のHPで画像のアップロードが出来る様になればいいなと思い、
cgiの勉強がてら調べていた所、下記HPがヒットしたのでサンプルスクリプトを使用し、アップロードをしたのですが正常にアップできませんでした。
http://www.aimix.jp/cgi/acccgilibupfile.html
テストとして、【36,864 バイト】とのjpgファイルをアップしたのですが、
サーバには、【622 バイト】のjpgファイルが作成され、もちろん正常に表示されませんでした。
※サーバはLinuxの自宅サーバを使用しております。
※cgi-lib.plは導入済みです。
※スクリプトの内容を一行だけ下記の様に変更しております。
【open OUT,">./img/$fnme";】にして、配下ディレクトリの【img】に保存するように設定。ディレクトリパーミッション777
その他はデフォルトの内容です。
※cgiパーミッション755。
※wrapper.cgiにてcgiのエラーはなし。
※perlは、【which perl】コマンドにて/usr/local/bin/perlであることを確認済みです。
以上が確認したことなのですが、原因がわかる方、ご教授お願いします。