#!/usr/bin/perl

use strict;
use warnings;

use XXX; # XXX wieder ersetzen

print const HALLO;
do_something() or die error 1001;