🚀 go-pugleaf

Pytanie: dlaczego to nie dziala ?

#!/usr/bin/sperl5.003
use CGI;
$query = new CGI;
print $query->header;
print $query->start_html("Taki maly problem");
if ($query->param(nazwa) ne "") {
   $nazwa = $query->param(nazwa);
   print "przed";
   open(PLIK,">/tmp/$nazwa");
   print PLIK "nic";
   close PLIK;
   print "po";
} else {
   print $query->startform;
   print $query->textfield('nazwa','',10,8);
   print $query->endform;
}
po zmianie #!/usr/bin/sperl5.003 na #!/usr/bin/perl dziala bez zarzutu.
Wlasciwie to potrzebuje stworzyc pusty plik i nie bardzo wiem jak.
Dzieki za pomoc.
----
Filip Byrski
byry@gliwice.pl