#!/usr/bin/perl
use strict;
use warnings;
use lib '.';
use test111;

my $liste = ['./datei1','./datei2','./datei3'];

test111->do_open($liste) or die $!;