#!/usrb/bin/perl

use CGI;
use CGI::Carp qw/fatalsToBrowser/;

$C = new CGI;
if ($C->param) {

$file=$C->param("FILE1");
$full = "D:/inetpub/general/nt/cv";
open (UPLOAD, ">$full") || die "Can't open";

while ($bytesread=read($file,$buffer,1024)) {
     binmode UPLOAD;
     print UPLOAD $buffer;
}

print $C->header;
print $C->start_html;
print qq(<p>file uploaded successfully</p>);
print $C->end_html;
exit;
}
else
{
print $C->header;
print $C->start_html;
print $C->start_multipart_form;
print $C->filefield(-name=>'file');
print qq(<input type="submit" name="submit" value="submit">
	</form>
);
print $C->end_html;
exit;
}