use Test::More tests => 2;
use File::Spec::Functions qw( splitdir catfile );

my @dirs = splitdir( $0 );
pop( @dirs ); # remove the filename
my $data_file = catfile( @dirs, 'file1.xml' );