#!perl -w

use DBI;
$d = DBI->connect('dbi:Sponge:');
DBI->trace( $_ ), $d->trace_msg("=> $_ <=", $_ )
  for reverse 0..9;