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