#!/usr/bin/perl
# File: useLiquidWater

use LiquidWater;

tie $drink, 'LiquidWater', 50;
print "drink is $drink degrees\n";

$drink = 97;
print "drink is $drink degrees\n";

$drink = 31;
print "drink is $drink degrees\n";

$test1 = $drink = 12;
print "drink: $drink test1: $test1\n";

