#!/usr/bin/perl
use Carp qw(croak);

sub imp { croak shift(), ": oops" }

sub git { local $Carp::CarpLevel = 2; imp @_; }

git "hello";