#!/usr/bin/perl -w

use strict;
use Celcius;

my $temp;
tie $temp, 'Celcius';
$temp = 0;
print "Initial temp is $temp (C)\n";

while(<>) {
    chomp;
    $temp = $_;
    print "Temp is $_ (F) ($temp (C))\n";
}