use vars qw( $dataLoc );

sub new{
  $dataLoc = $fh->tell() if (! defined $dataLoc);
}