#!/usr/bin/perl

=pod

	usage: pwround $game_dir

=cut

use strict;
use warnings;

use Games::PerlWar;

my $pw = new Games::PerlWar( shift );

$pw->load;
$pw->play_round;
$pw->save;
