#!/usr/bin/perl
use warnings;
use strict;

use a344569;
use b344569;

my $a = a344569->new();
my $b = b344569->new();

print "A:\n";
print "  ", $a->foo();
print "  ", $a->flux();

print "B:\n";
print "  ", $b->foo();
print "  ", $b->bar();
print "  ", $b->flux();

print "Ok\n";