#!/usr/bin/perl

use strict;
use warnings;

BEGIN {
    use FindBin;
     use lib (
         "/homepages/4/d22384271/htdocs/lib",
         "$FindBin::Bin",
         "$FindBin::Bin/../Lib",
         "$FindBin::Bin/../Packages"
     );
    $ENV{TMPDIR} = $ENV{TEMP} || "";
};
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};   # Make %ENV safer =:-)

use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use Data::Serializer;

my $ds = Data::Serializer->new(
    serializer    => 'Data::Dumper',
    digester    => 'SHA-256',
    cipher        => 'Blowfish',
    secret        => "uhu",
    portable    => 0,
    compress    => 0,
);

print "Content-Type: text/html\n\n";
print $ds->serialize("Ich bin ein Text");