#!/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});