#!/usr/bin/perl -w

use strict;

use TestClass;

sub main
{
    my $test = TestClass->new();
    
    my @arr = ('<test val="blabla">hallo</test>', '123456', 'abcdef');
    
    $test->set_arr_testFeld(@arr);
    
    $test->printIt();
    
    print($test->get_arr_testFeld());
}

&main();