This sub works for your XML input:

sub print_elt_text {
    my ($t, $section) = @_;
    my $appl = $section->first_child('Application');
    my $timeo = $appl->first_child('Properties')->first_child('Timeout
+');
    if (defined $timeo) {
        print $appl->att('Name'), ' ', $timeo->text(), "\n";
    }
}

__END__

App1 900
[download]