#!/usr/local/bin/perl
use Fcntl;
use NDBM_File;
tie %hashm, "NDBM_File", "/web/012/wm-click/public_html/adv/status/getmoney", O_RDWR|O_CREAT|O_EXCL, 0644;
$hashm{status}="1";
untie %hashm;

print "Content-Type: text/html\n\n";
print "<HTML><BODY bgcolor=#8BFEA3>";
print "</BODY></HTML>";
