print __FILE__;

##</code><code>##

 
sub file_name_is_absolute {
    my ($self,$file) = @_;
    return scalar($file =~ m:^/:s);
}

##</code><code>##

 
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;