Help for this page

Select Code to Download

Select or download this

       #!/usr/local/bin/perl     
          $filename = "./logfile.txt";
          open (LOG, $fn);
          print LOG "Test\n";
          close LOGFILE;

Select or download this

#!/usr/local/bin/perl -w 
        $filename = "./logfile.txt";
        open (LOG, $filename) or die "Couldn't open $filename: $!";
        print LOG "Test\n";
        close LOG;