#!/usr/bin/env perl

use warnings;
use strict;
use 5.10.0;

use App::Pieces;

my $p = App::Pieces->new();
$p->{dbh}->do(q{DELETE FROM pieces});