package Tie::Scalar::FHPos;
	use FileHandle;
	sub TIESCALAR
	{
		my( $pkg, $fh ) = @_;
		bless [$fh], $pkg;
	}
	sub FETCH
	{
		my( $self ) = @_;
		$self->[0]->tell
	}
	sub STORE
	{
		my( $self, $pos ) = @_;
		$self->[0]->seek($pos,0);
	}