#!/usr/bin/perl

use strict;
use warnings;

test();

sub test {
  # Get info from the caller
  my ($package, $file, $line) = caller;

  print "Called from $line of $file in $package\n";
}