use File::Spec 
# NB. File::Spec isn't actually required,
# but it's a good cross-platform solution

my @module_dir_array = File::Spec->splitpath(__FILE__);
my $filename = File::Spec->catpath(@module_dir_array[0,1],'file.txt'),