#!/usr/bin/perl -w
open(Handle,"D:\\scripts\\read.txt") || die "cannot read the file: $!";
chomp(@row_data=<Handle>);
close(Handle);
print join (',',@row_data);