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

# and later
print (OUTFILE $input);