print "Permissions: ", (stat($filename))[2] & 0777, "\n";
		print "Source\n";
		print "tempfile: $file->tempfile\n";
print "filename: $filename\n";
		print "Source: ", $file, "\n";
		
		eval {
  move($file->tempfile, $filename);
};
if ($@) {
  print "Error: $@\n";
}
		print "continue";
		if (!move($file->tempfile, $filename)) {
		print "Error: move function returned false\n"; }
		
		
		
		
if ($file) {
    # Get the file name and type
	my ($name, $type) = split /\./, $file;
    # Check the file type (only allow images)
    if ($type =~ /^(jpg|jpeg|png|gif)$/) {	
	}
}