誰かファイルアップロードに詳しい人いたら、ソース教えて。

一応ここまで出来ているんだが、次がわからない。

#!/usr/local/bin/perl
use CGI ':standard';
print header();
print start_html(-title=>"Freeアップローダー",bgcolor=>"white");
print "<img src=/icons/uploader.gif>";
print hr();
print start_form(-name=>"uploader",mothod=>url());
print filefield(-name=>"file",-size=>"60");
print br();
print submit(-name=>"submit",-value=>"アップロード");
print end_form();
print end_html();
exit;