#!/usr/bin/perl
print"Content-type:text/html\n\n";   
$filename = 'data.txt';
$result = unlink($filename);
if ($result) { 
  print'Delete file ok'; } else {
  print"Can't delete $filename or file not found";
}