{
  package DB;
  sub DB {
    my ($package,$filename,$line)=caller;
    print "Line: $line\n";
  }
}