#!/usr/bin/perl

print "Content-type: text/html\n\n";

$file = '/tmp/test';
open (FILE, ">$file");

$databasedir =
"/usr/local/jail/www/htdocs/ncsa/riverweb/notebook/notebook1/database";

$nufile = 
"/usr/local/jail/www/htdocs/ncsa/riverweb/notebook/notebook1/database/test";
system ("mv $file $databasedir");

system ("chmod 0666 $nufile");

print "All Done";