#!c:/perl/bin/Perl.exe

print "Content-type:  text/html; charset=iso-8859-1\n\n";

use LWP::Simple;


$content = get("http://www.pm-nachterlebniswelt.de/Programm");
    die "Couldn't get it!" unless defined $content;
    
my ($var) = $content =~ m!<td width="97%" class="titles"><strong><font color="">(.*?).\-.(.*?)</font></strong></td>
               
 </tr>
               
 <tr> 
               
     <td><img src="/images/trans.gif" height="14"></td>
               
     <td valign="top">(.*?)</td>
               
 </tr>
        </table>!s;
        
    
print"$1 ..... $2 .....$3<br>";