#!/usr/bin/perl
use strict;
use warnings;
use Buffalo::G54;
my $b = Buffalo::G54->new();
$b->password();
$b->connect();
print $b->version(), "\n";

__END__

=head1 NAME

    router-version - Prints the router firmware version

=head1 SYNOPSIS

    router-version

=head1 DESCRIPTION

C<router-version> logs into the router at 192.168.0.1 and prints its 
firmware version.

=head1 LEGALESE

Copyright 2006 by Mike Schilli, all rights reserved.
This program is free software, you can redistribute it and/or
modify it under the same terms as Perl itself.

=head1 AUTHOR

2006, Mike Schilli <cpan@perlmeister.com>