This is how I do it...

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' );
[download]

By basing the path off of $0, it's always relative to the test itself.