#!/usr/local/bin/perl -w
# varbind-scalar-greetings2.pl -- Tageszeitabhaengiger Gruss mit tie()
#                           und Speicherung des Benutzernamens.

use TimeGreeting2;

tie $greetings, 'TimeGreeting2' or die "can't tie(): $!\n";

while(<>) {
    chomp;
    $greetings = $_;
    print $greetings;
}