use IO::Compress::Gzip;

#...

  my $localFilePath = 'C:/adi_vsfz/CTIP/transferFiles/20091015_Timetable.txt';

  my $content;
  #Open a file handle to the file.
  if(open(FILE_TO_TRANSFER, $localFilePath))
  {
    my @transferFileContents = <FILE_TO_TRANSFER>;
    foreach(@transferFileContents)
    {
      $content .= $_;
    }

    close(FILE_TO_TRANSFER);

    my $newContent;
    IO::Compress::Gzip::gzip($content, $newContent);
    print("<BR><BR>\n".$content."<BR><BR>\n");
    print($newContent."<BR><BR>".length($newContent)."\n");
    if($newContent == undef)
    {
      print('$newContent is undef'."<BR>\n");
    }
  }

##</code><code>##

Timetable Info


0 $newContent is undef