foo();

$@{0}  ?  print "error: $@{0}"
       :  print 'ok';

sub foo { $@{0} = 'proxy error' }