# perl
package Exception;
sub TIESCALAR { bless {}, $_[0] }
sub STORE {  }
sub FETCH {  }

package main;

use Devel::Peek;

my $t = tie $@, 'Exception' or die "Unable to do what you want\n";
my ($foo, $bar) = (0, 0);
Dump($@);
eval { $foo = 42 / $bar };
Dump($@);
$@ = 'blah';
Dump($@);
__END__
SV = PVMG(0x8135944) at 0x811b12c
  REFCNT = 1
  FLAGS = (GMG,SMG,RMG,pPOK)
  IV = 0
  NV = 0
  PV = 0x8124100 ""\0
  CUR = 0
  LEN = 240
  MAGIC = 0x8127e40
    MG_VIRTUAL = &PL_vtbl_packelem
    MG_TYPE = PERL_MAGIC_tiedscalar(q)
    MG_FLAGS = 0x02
      REFCOUNTED
    MG_OBJ = 0x81269a4
    SV = RV(0x8140418) at 0x81269a4
      REFCNT = 1
      FLAGS = (ROK)
      RV = 0x811b240
      SV = PVHV(0x812670c) at 0x811b240
        REFCNT = 2
        FLAGS = (OBJECT,SHAREKEYS)
        IV = 0
        NV = 0
        STASH = 0x81269ec       "Exception"
        ARRAY = 0x0
        KEYS = 0
        FILL = 0
        MAX = 7
        RITER = -1
        EITER = 0x0
SV = PVMG(0x8135944) at 0x811b12c
  REFCNT = 1
  FLAGS = (GMG,SMG,RMG,POK,pPOK)
  IV = 0
  NV = 0
  PV = 0x8124100 "Illegal division by zero at - line 13.\12"\0
  CUR = 39
  LEN = 240
  MAGIC = 0x8127e40
    MG_VIRTUAL = &PL_vtbl_packelem
    MG_TYPE = PERL_MAGIC_tiedscalar(q)
    MG_FLAGS = 0x02
      REFCOUNTED
    MG_OBJ = 0x81269a4
    SV = RV(0x8140418) at 0x81269a4
      REFCNT = 1
      FLAGS = (ROK)
      RV = 0x811b240
      SV = PVHV(0x812670c) at 0x811b240
        REFCNT = 2
        FLAGS = (OBJECT,SHAREKEYS)
        IV = 0
        NV = 0
        STASH = 0x81269ec       "Exception"
        ARRAY = 0x8127e60
        KEYS = 0
        FILL = 0
        MAX = 7
        RITER = -1
        EITER = 0x0
SV = PVMG(0x8135944) at 0x811b12c
  REFCNT = 1
  FLAGS = (GMG,SMG,RMG,pPOK)
  IV = 0
  NV = 0
  PV = 0x8124100 "blah"\0
  CUR = 4
  LEN = 240
  MAGIC = 0x8127e40
    MG_VIRTUAL = &PL_vtbl_packelem
    MG_TYPE = PERL_MAGIC_tiedscalar(q)
    MG_FLAGS = 0x02
      REFCOUNTED
    MG_OBJ = 0x81269a4
    SV = RV(0x8140418) at 0x81269a4
      REFCNT = 1
      FLAGS = (ROK)
      RV = 0x811b240
      SV = PVHV(0x812670c) at 0x811b240
        REFCNT = 2
        FLAGS = (OBJECT,SHAREKEYS)
        IV = 0
        NV = 0
        STASH = 0x81269ec       "Exception"
        ARRAY = 0x8127e60
        KEYS = 0
        FILL = 0
        MAX = 7
        RITER = -1
        EITER = 0x0