use strict; use warnings; package Foo; use Carp; sub dbout { carp "@_"; } package main; Foo::dbout (1..3); #### 1 2 3 at /tmp/lanxcarp.pl line 14.