#!/usr/bin/perl use strict; use warnings; print "Content-Type: text/plain\n\n", get_me_date_and_caller(); sub get_me_date_and_caller { my $level = 0; my $call_trace = ""; while (my @info = caller($level)) { $call_trace .= "Level: $level\n". " Package: $info[0]\n". " File: $info[1]\n". " Line: $info[2]\n". " Sub: $info[3]\n\n"; $level++; } return "Called on ", scalar(localtime()), " by:\n" . $call_trace }