Hi I am using FileHandle, Below is my code ########################################
#!/usr/bin/perl
use warnings;
use strict;
open(LOGFILE, "messages")
|| warn "Could not open messages";
open(DATA, ">/tmp/data") || die "Could not create /tmp/data\n."
while (<LOGFILE>) {
print "$_\n" if /MARK/;
}
#######################################
I am getting syntax error
I know i am doing wrong, please let me know whats causing the issue.
Thanks and Regards
Kaushal
