chomp @FILE;
foreach my $command ( @FILE ) {
   print $sock "$command\r\n";
}