Perl scripts for testing the DataTransfer tool