#!/usr/bin/perl -w

use strict;
use Olio;
my ($eka, $nimi, @os, $henk, @kortisto);

$eka = 1;
unless (@ARGV) {
    print "Nimi ja tiedot kukin omalla rivillään",
          " - . lopettaa tiedot ja ^D ohjelman\n";
}

while (<>) {
    if ($eka) { 
	$nimi = $_;
	$eka = 0;
	next;
    }
    if ($_ eq ".\n") {
	$eka = 1;

	$henk = new Olio;
	$henk->nimi($nimi);
	$henk->osoite(@os);
	push @kortisto, $henk;

	$nimi = undef;
	@os = ();
    } else {
	push @os, $_;
    }
}
foreach (@kortisto) {
    print '- 'x20, "\n", $_->nimi(), $_->osoite();
}