#! /usr/bin/perl

use WXP;

WXP::Prog::readResrcFile( "griblist" );

$file = $ARGV[0];

$grid = new WXP::Grid;
$grib = new WXP::GribFile( $file );
if( !$grib->isOpen ){
    printf( "File not found: %s\n", $file );
    exit 1;
}
while( $grib->read( $grid )){
    $grid->print;
}