my $super_secret = tie 'Tie::Scalar::SelfDestruct', 1;
    $super_secret = whatever ();
    print EMAIL_TO_BAD_GUY $super_secret;
    print DATABASE $super_secret;