#!/usr/bin/perl
use strict;
use warnings;
use module::Modul1;

print qq(Set-Cookie: test="Etwas Text" \r\n);
print "Content-Type: text/plain\r\n\r\n";

print Funktion1();

package module::Modul1;
use base 'Exporter';
our @EXPORT=qw(Funktion1);
use module::Modul2;
use Data::Dumper;

sub Funktion1 { return Dumper({ Funktion2() }); }

1;

package module::Modul2;
use base 'Exporter';
our @EXPORT=qw(Funktion2);
use CGI::Cookie;

sub Funktion2 { return CGI::Cookie->fetch(); }

1;

$VAR1 = {
          'test' => bless( {
                             'value' => [
                                          '"Etwas Text"'
                                        ],
                             'name' => 'test',
                             'path' => '/'
                           }, 'CGI::Cookie' )
        };