use strict;
use Tie::STDERR \&HandleError;

print "Before\n";
die ".....";
print "After\n";

sub HandleError(){ 
    my ($error) = @_;
    &SomeActivity('0',$error);
}

sub SomeActivity(){
    my ($rc, $error) = @_;
    print $rc . "\n" . $error; 
}