#!/usr/bin/perl -w

use strict;
use lib 'module';
use CGI;
use CGI::Carp qw(fatalsToBrowser);  #Nur für Testumbegung

# eigene Module in Ordner 'module'
use Subs;
use WebDB;

my $cgi = new CGI;
print $cgi->header( -type=>'text/html');
print $cgi->start_html( -title=>'Test html-code textarea db');

my $thread_load = WebDB::get_thread(48);
my $content     = $thread_load->{content};

#Ausgabe im Browser
print $content;    
print "<textarea>$content</textarea>";

print $cgi->end_html();