Help for this page
chomp @FILE; my $every_command = join '', map { "$_\r\n" } @FILE; print $sock $every_command;
chomp @FILE; foreach my $command ( @FILE ) { print $sock "$command\r\n"; }