1
2
3
4
5
6
7
8
9
10
11
12
|
#!/usr/bin/perl
# $Id: simple_dump.pl,v 1.1 2007/11/13 21:19:27 koos Exp $
# Example script for METAR.pm.
use Geo::METAR;
my $m = new Geo::METAR;
$m->metar("KFDY 251450Z 21012G21KT 8SM OVC065 04/M01 A3010 RMK 57014");
$m->dump;
exit;
|