Select Code to Download

my $output = new OUTFILE ('>C:\Program Files\cron\Cruise Ships\ship_da
+ta.csv');
...

# and later
print (OUTFILE $input);

open my $output, '>', q{C:\Program Files\cron\Cruise Ships\ship_data.c
+sv};

# and later
print {$output} $input;