use strict;
use warnings;

package Foo;

use Carp;

sub dbout {
    carp "@_";
}

package main;

Foo::dbout (1..3);