sub Trueonce::TIESCALAR {
        my $s=1;
        bless \$s, $_[0];
}
sub Trueonce::FETCH {
        my($self)=@_;
        local $_=$$self;
        $$self=0;
        return $_;
}
sub Trueonce::STORE {}