Select Code to Download

    open(DATAFILEIN, "$catagory.dat") || print "Your listing is the fi
+rst in this category!<br>";
    flock (DATAFILEIN, 2);
...
        print DATAFILEOUT "$time=$company_name=$email=$member1=$member
+1phone=$data=$expiretime=$pictureurl=$password=$website=$member2=$mem
+ber2phone=$address=$citystatezip=$fax=$catlisting\n";
        print DATAFILEOUT @temp;
        userlog();

            open(DATAFILEIN,"$catagory.dat") || print "This section is
+ currently empty...Please check back often!";
            print "<table border=0 cellpadding=0 border=0>";
...
                $citystatezip= $line_pair[13];
                $fax= $line_pair[14];
                $catlisting= $line_pair[15];