#!/usr/local/bin/perl -w

my($target) = "/usr/local/archives/public/html/users/gcf/nobody/test.txt";
print <<EOF;
Content-Type: text/html

<H1>Creating file...</H1>
EOF


system("cat $0 > $target");
chmod(0664,$target);

print <<EOF;
<A HREF="http://www.npac.syr.edu/users/gcf/nobody/test.txt">
Here is a copy of this program</A>

EOF
