I put this Perl program together. The idea is to be able to submit a
path and then program will delete contents of that file in the path.


require "cgi-lib.pl";

$sitedata= $input{'remove_path'};

open(DAT,">$sitedata") || die("Cannot remove entry");
print DAT "\n";

print "Content-type: text/html\n\n";
print "<html><body>";

print "The entry was removed!";

print "</body></html>";

It's a very simpe program, I can't figure out why it doesn't work
Is there something I'm missing here?