Re^4: Copy rows of file to new document

[phineas629]

I've given this a couple attempts.I'm really trying to read over the notes but am just plain lost. This is the error I got with the code:

"my" variable $dir_path masks earlier declaration in same statement at parse.pl line 5. syntax error at parse.pl line 5, near "opendir" Can't use global $! in "my" at parse.pl line 5, near "die $!" syntax error at parse.pl line 7, near ") {" Global symbol "$file_content" requires explicit package name at parse.pl line 8. Execution of parse.pl aborted due to compilation errors.

#!/usr/bin/perl
use strict; 
use warnings; 
my $dir_path="c:/incoming/temp;" 
opendir my $DIR, $dir_path or die $!;
open my $OUT, '>>', 'c:/vehicles.txt' or die $!;
while (my $file_name = readdir($DIR) {print "$file_name\n";}
print MYFILE $file_content;
close (MYFILE)

[choroba]

On line 4, exchange the double quote and the semicolon. Then, reread my comments.