package Seismic::Line; sub new { my( $class ) = shift; return bless {}, $class; } 1;