Select Code to Download

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' );