#!/usr/bin/perl

BEGIN {
    my $homedir = ( getpwuid($>) )[7];
    my @user_include;
    foreach my $path (@INC) {
        if ( -d $homedir . '/perl' . $path ) {
            push @user_include, $homedir . '/perl' . $path;
        }
    }
    unshift @INC, @user_include;
}

use CGI;

use Mysql;

require('config.pl');

$query = new CGI;
 
 

print $query->header;

get_colors();


 

print <<EOP;


<table border="0" width="100%">
  <tr>
    <td width="50%" align="center"><img src="dos_amigos/dosamigos250.jpg"
    alt="dosamigos250.jpg (20594 bytes)" width="200" height="203"></td>
    <td width="50%" align="center"><big><big><em><big>Dos&nbsp; Gringos</big></em></big></big><p><font
    color="yellow"><big><em>Skip&nbsp;&nbsp; DAN</p>
    <p>561-893-6620&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</em></big></font> 
    </td>
  </tr>
</table>

<hr width='66%'>



EOP
 
 
 
print <<EOP;
<center><hr width = "66%"> At a Privite Wedding<br> 
<img src="unplugged.jpg" alt="unplugged.jpg (23283 bytes)" width="125" height="125">
&nbsp;&nbsp;&nbsp;&nbsp; <img src="unplugged2.jpg" alt="unplugged2.jpg (19107 bytes)"
width="125" height="125">&nbsp;&nbsp;&nbsp;&nbsp; <img src="unplugged3.jpg"
alt="unplugged3.jpg (18925 bytes)" width="105" height="125"></center>
<center> John D. MacArthur Beach State Parkk 
<center><img src="/images/long veiw.jpg "
alt="long view.jpg (dth="105" height="125"18925 bytes)" >&nbsp;&nbsp;&nbsp;&nbsp;
<img src="/images/closeup.jpg  "
alt="unplugged3.jpg (18925 bytes) width="105" height="125" >
</center>



</p>
<hr width='66%'><br>




EOP