CGI.pm CGI ¸ðµâÀ» ÀÌ¿ëÇØ ÆÄÀÏÀ» ¾÷·Îµå ÇÏ´Â ÇÙ½É ÄÚµå´Â 5ÁÙ ¹Û¿¡ µÇÁö ¾Ê½À´Ï´Ù.

#!/usr/bin/perl -w
use CGI;
$q = CGI->new();

...
...
$file = $q->param('uploaded_file');
open(FILE, ">myfile");
while(<$file>){ print FILE $_; }
close($file);
close(FILE);
...
...


$upfile = $FORM{'file_name'};
@a = split(/\"/,$real_file);
@b = split(/\\/,$a[3]);
$t = @b;
$org_name = ($b[$t-1]);
$filename = "$main_dir/files/".$org_name;
if(-e $filename){
        $err = exist;
        &error;
}
open(FILE, ">$filename") || exit(1);
binmode FILE;
print FILE $upfile;
close FILE;