#!/usr/bin/perl

foo();

foo();

sub foo {

      my($package, $filename, $line) = caller();
      
      print "Aufgerufen in: $line\n";

}