Well Just under your print statement you can open a file and dump data to a filehandle.

my $results="/home/aa/results";
open(MY_HANDLE, "> $results");
  print MY_HANDLE $A,$B;
  close MY_HANDLE;
[download]

This way you will have the results in a file.