Help for this page
open my $OUTFILE, q{>}, $outfile or die "failed to open $outfile: $!";
my $OUTFILE, q{>}, "$path_to_the_data_directory/$outfile" or die "failed to open $path_to_the_data_directory/$outfile: $!";