sub ipImage{
print "Content-type:image/gif\n\n";
$content = "chatyes.gif";
open (FILE,"$content");
while ($line = <FILE>){
print "$line";
}close FILE;
for($x=0;$x<30;$x++){
if (-e "webchat/$iplogin.t"){
unlink("webchat/$iplogin.t");
$x=1000;
exit;
}
sleep(1);

}
}#################################### end ipImage