#!/usr/bin/perl -w
use strict;

use WRT54G;
use Util;

my %config = Util::parse_config('wrt54g.cfg');

my $wrt54g = WRT54G->new(%config);

$wrt54g->get_shell();