#!/usr/bin/perl -w

use strict;
use SpezialObject;

my $a = new SpezialObject;

$a->druck;
$a->doppeldruck;