#!/usr/bin/perl
print "Content-type:text/html\n\n";   
$filename = 'data.txt';
open(myfile,">$filename");
print myfile "4101001,abc,\n";
print myfile "4101002,hello,\n";
print myfile "4101003,lampang thailand,\n";
close(myfile);
print 'Create new 3 records : ok';