#!/usr/bin/perl

use strict;
use warnings;

print "Test";     # Dies ist eine Testausgabe
call_sub();      # ein Funktionsaufruf