use Seismic;

my $s = new Seismic;
my $lines = $s->lines;
my $line0 = $s->line(0);
my $line1 = $lines->[1];

my $stations = $line0->stations;
my $station0 = $stations->[0];
my $station1 = $s->line(0)->station(1);
my $x = $station0->easting;
my $y = $station0->northing;
my $z = $station0->elevation;
my ($x,$y,$z) = $station1->xyz;