package FOO; 
use File::Spec;

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

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


1;

##</code><code>##

 
#!/usr/bin/perl 

use FOO; 

use CGI qw(:standard); 
print header(); 

FOO::bar();