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