#!/usr/bin/perl -w
use strict;
use warnings;

sub test2 {
	print "ich heisse 'test2.pl' und nicht '$0'\n";
	# Welche Variable bringt mir hier test2.pl ?
}
1;