#!perl

use strict;
use warings;
use FindBin qw/$Bin/; # $Bin verwenden

print "Ich bin hier: $Bin";