#!/usr/bin/perl

$logdata = 'logdata';
$dbmlocation = "whatever";

print "Content-type: text/html\n\n";
        
open (LOG, ">>$logdata") || 
print "Can't open $logdata:$!";

print LOG "Initalizing Database Variables: $dbmlocation\n";

print "<br>Initalizing Database Variables: $dbmlocation\n";

close LOG;