Select Code to Download

my $file3 = do {local $/; <FILEHANDLE>};

my $response = POST (URI, [ form_zone => $file3, submit => 'Submit', 
  form_result => 'true', menu => 'edit_dns', 
  user => 'username', auth => '*:strange_string',
  account => 'account_name', mbox => ''],
 REFERRER => LAST_PAGE);

my $aref = [ form_zone => @file3, submit => 'Submit', 
  form_result => 'true', menu => 'edit_dns', 
  user => 'username', auth => '*:strange_string',
  account => 'account_name', mbox => ''];
print "( '", join("', '", @$aref), "')\n";