Select Code to Download

$grid->get_line(257)->get_station('257_5')->Elevation;

$grid->{ 257 }{ 257_5 }[ Elevation ];

$grid->get_line($lineID)->get_station($stationID)->Elevation;

$grid->{ $lineId }{ $stationID }[ Elevation ];

my $seismic = Seismic->new( 'seismic.dat' );

...
        );
    }
}

## You didn't provide a constructor from a file
## But you could have.
...
        );
    }
}

package Seismic;
use Exporter;
...
}

1;