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;

##</code><code>##

#!/usr/local/bin/perl -w

use strict;
use Bar;

&ff_error("die here");

##</code><code>##

./foo.pl 
Undefined subroutine &main::ff_error called at ./foo.pl line 6.