#!/usr/bin/perl
($n,$v) = split (/=/,<STDIN>);
print"Content-type:text/html\n\n";   
$filename = 'data.txt';
open(myfile,"$filename");
@getrec = <myfile>;
close(myfile);      
unlink("$filename");
@getrec = sort @getrec;
open(myfile,">$filename");
foreach $rec(@getrec) { print myfile $rec; }
close(myfile);
print 'Sort process : ok';