アルバムの変更点

- @{[ $cgi->filefield(-name=>'upload_file')]}
+ @{[ $cgi->filefield(-name=>'upload_file',-multiple=>'multiple')]} 
- 	my $fh = $cgi->upload('upload_file');
+    my @fh = $cgi->upload('upload_file');                                       
+    my @filename = $cgi->param('upload_file');
+    for my $fh (@filename){
+        up_load_main($fh);
+    }       
+ }
+ sub up_load_main{
+        my $fh = shift;
- 	my $filename = $cgi->param('upload_file');
+ #	my $filename = $cgi->param('upload_file');
+        my $filename = $fh;