Select Code to Download

>> /usr/lib/perl5/5.8.5/i586-linux-thread-multi/IO/Handle.pm:431:     
+read($_[0], $_[1], $_[2], $_[3] || 0);

        my $fh;
        open $fh,'xmlfile.xml' or die $!;
        my $result = $statusTwig->safe_parse($fh);
        close $fh;