Something Wrong with the code?

From: Arturo (webmaster_at_awiebe.com)
Date: 11/25/03

Date: 25 Nov 2003 05:54:48 -0800

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";
&ReadParse(*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?