Passing variables to subroutine

[sivasakthi]

Hi All,

I have tested the following script for reading the log files and write
in to the file,


#!/usr/bin/perl
use strict;
use warnings;
use File::Tail;
my $file=File::Tail->new("/log/path");
while (defined(my $line=$file->read))
{
my ($time,$lport,$ip,$stats,$rport)=split" ",$line;
&writedata;
sub writedata 
{
open FF,">>/tmp/test || die "can't create file  /tmp/test $!";
printf FF "$time,$lport,$ip,$stats,$rport";
close FF;
}


I have get an error .. could u help me to rectify?

Thanks,
Siva