New to Perl- Print Output of array

[dshaw21369]

When I tried to print the output of the array I can't see it. Im compiling on the server and dont know where to look for the output from this file. Can someone please help.
Thanks!
Here is the code:

#!/usr/local/bin/perl


unless (open (XML_EXAMPLE,&quot;</export/home/egate/Perl_Development/XML_IN_PERL.txt&quot)
{
print &quot;That file does not exist\n&quot;;
exit(1);
}

my (@array)=<XML_EXAMPLE>;
close(XML_EXAMPLE);

my $join_xml = join(&quot;\n&quot;,@array);

open (XML_EXAMPLE,&quot;</export/home/egate/Perl_Development/XML_IN_PERL.txt&quot || die;
print XML_EXAMPLE $join_xml,&quot;\n&quot;;
close(XML_EXAMPLE);

 

[vgg]

Hi,
First try to print the array to the standard output and check if you have got the contents right.try

open(XML_EXAMPLE,&quot;+>/export/home/egate/Perl_Development/XML_IN_PERL.txt&quot;

VGG

 

[Guest_imported]

Hi,
Where does the standard output go???

 

[pcutler]

Hi,

Standard Output goes to your monitor.

Cheers.
PC

 

[Guest_imported]

I got it!
print XML_EXAMPLE $join_xml,&quot;\n&quot;;
my syntax was incorrect...

Thanks so much for your answers!