package Bar;

use strict;
use Exporter;

use vars qw(@ISA @Export $VERSION);

@ISA            = qw(Exporter);
@Export         = qw(&ff_error );
$VERSION        = 1.00;

###########################################
sub ff_error {
   my ($error,@error_fields) = @_;
   print "\n\n  ERROR: $error @error_fields\n\n";
   exit;
}
1;