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

##</code><code>##

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

##</code><code>##

open(my $output, '>', 'C:\\Program Files\\cron\\Cruise Ships\\ship_data.csv');

##</code><code>##

use IO::Handle qw( );

...

my $out_fn = 'C:\\Program Files\\cron\\Cruise Ships\\ship_data.csv';
open(OUTFILE, '>', $out_fn)
   or die("Unable to create output file \"$out_fn\": $!\n");

...

print (OUTFILE $input); 

...

OUTFILE->print ( join(',', @$row), "\n");

##</code><code>##

my $out_fn = 'C:\\Program Files\\cron\\Cruise Ships\\ship_data.csv';
open(my $out_fh, '>', $out_fn)
   or die("Unable to create output file \"$out_fn\": $!\n");

...

print ($out_fh $input); 

...

$out_fh->print ( join(',', @$row), "\n");