#!/usr/bin/perl
# Jaime Prilusky, 2006

  sampleSub();

sub sampleSub {
  ($package, $filename, $line) = caller;

  print qq {
package    $package
filename   $filename
line       $line

 };

}