do { package DB; @callarr = caller(3); }; 
my @args = @DB::args;
my $sender = $args[0];