Select Code to Download

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

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

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

use IO::Handle qw( );

...
...

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

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

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