my $myfile = __FILE__;
    print "Ich bin in file $myfile\n";