package FOO; 
use File::Spec;

require Exporter; 
@ISA = qw(Exporter); 
@EXPORT = qw(bar); 

sub bar { 
	print __FILE__; 
	print '<p>';
	print File::Spec->rel2abs(__FILE__) . "\n";
}


1;