while( <FILE> } {
    my( @attributes = unpack '...', $_;
    my $object = Siesmic::Line->new( @attributes );
    
    ## Now what?
    ## ???