Select Code to Download

$h = new HTTP::Headers
...
print FH $response->decoded_content;
close FH;

open(FH,'orders.csv') or die "$!";
while($line = <FH>) {
...
  print "!!!! $character ****\n";
}