#!/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"; }