#
# Testing Northwind database access
#
use Northwind;

my @Orders = Northwind::Order->search( ShipCountry => 'France' );

foreach my $Order ( @Orders ){
    print "$Order->ShipCity\n";
}