package session_track;
use Carp;
use strict;
use warnings;
use warnings::register;
my $count =0;
sub TIESCALAR {
	my $class = shift;
	my $filename = shift;
	my $fh;
	
	if (open $fh, "<", $filename || open $fh, ">", $filename) {
	close $fh;
	$count++;
	return bless \$filename, $class;	
		}
	carp "Can't tie $filename: $!" if warnings::enabled();
	return;
}

sub FETCH {
	my $self = shift;
	confess "I am not a class method" unless ref $self;
	return unless open (my $fh, $$self);
	read($fh, my $value, $fh);
	 return $value
}
sub STORE {
	my ($self,$value) = @_;
	confess "I am not a class method" unless ref $self;
	open my $fh, ">", $$self or croak "can't clobber $$self: $!";
	syswrite($fh, $value) == length $value
		or croak "can't write to $$self: $!";
	close $fh
		or croak "can't close $$self:$!";
}	
		
return "true";