Nice. It works after a minor change: either name data.txt data or change this line in test.pl:

my $data = do './data';
[download]

to do data.txt