$ perl -MDevel::Peek -wle 'my $dbh = "foo"; Dump \$dbh'
SV = RV(0x8194068) at 0x817cca0
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x817cd54
  SV = PV(0x817cf90) at 0x817cd54
    REFCNT = 2
    FLAGS = (PADBUSY,PADMY,POK,pPOK)
    PV = 0x818f688 "foo"\0
    CUR = 3
    LEN = 4