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.

#!/usr/bin/perl

require "cgi-lib.pl";
&ReadP(*input);

$sitedata= $input{'remove_path'};

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

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
though.
Is there something I'm missing here?