use FindBin;

tie @test, 'Tie::File', $FindBin::Bin . '/test.txt';
# ...