#!/usr/bin/perl -w

use Foo ;
use Goo ;
use Biz ;
use Baz ;

eval {
    &testfoo ;
} ;
warn $@ if $@ ;

eval {
    &testgoo ;
} ;
warn $@ if $@ ;

eval {
    &testbiz ;
} ;
warn $@ if $@ ;

eval {
    &testbaz ;
} ;
warn $@ if $@ ;