use CGI qw(:standard);

if(param('delete'))
{
   $lineNum = param('delete');

   open(FILE, "$filename");
   @lines = <FILE>;
   close(FILE);

   splice(@lines, $lineNum, 1);

   open(FILE, ">$filename");
   print FILE (@lines);
   close(FILE);
}