#!/usr/bin/perl

use strict;
use warnings;
use Carp;

sub new{
    my $class = shift;
    my $arg = shift;
    return eval{ croak "Argument ist nicht definiert"} 
        unless defined $arg;
    return bless{ 
        ARG => $arg,
    }, $class;
}

my $main = main->new() or die "Die Instanz konnte nicht erstellt werden, Fehler: $@";