open(PUBFILE,">$pubfile") || die "Cant open $pubfile \n";