sub file_up {
	local $| = 1;
	my ($bytesread,$buffer,$file);
	my $directory = $base_dir . $target_dir;
	my $fh = $q->upload('upload_file');
	binmode $fh;
	my $filename = $q->param('upload_file');
	$filename =~ s/[^A-Za-z0-9\.\_]//g;

	open(OUTF, '>' . $directory . $filename);
	while ($bytesread = read($fh, $buffer, 1024)) {
    	print(OUTF $buffer);
	}
	close(OUTF);

	if (!$file && $q->cgi_error) {
	    print($q->header(-status=>$q->cgi_error));
	    exit 0;
	}


	$image_link = $base_dom . $image_folder . $filename;
	$image_link;
}