print $sock "$data\r\n";
my @output;
$output = join('', @output);

##</code><code>##

$data_file = "/path/to/data.txt";
$delimiter = "\n"; 
open(FILE,"$data_file") || &error('open->data_file',$data_file);
@FILE = <FILE>;
close(FILE);

##</code><code>##

$commands = join('',@FILE);
@commands = split(/$delimiter/,$commands);