tie $var, "Tie::Scalar::Logged",
         'log.txt',
         '$var',
         [qw/all/] or die "Can't open log.txt - $!";