Something like this?

use strict;
use warnings;
use XML::Twig;

my $xmlStr = <<XML;
<script type="ApplicationPerspective" version="5.3.13.179" recorder="8
+.6.59.276" sav="25" guid="296A95D0-E8B6-4989-AA21-126796A3AD3F" xmlns
+="http://www.keynote.com/namespaces/tstp/script">
    <name>
        <![CDATA[GT Amadeus]]>
    </name>
    <actions>
        <action FrameErrorFatal="1" MetaErrorFatal="1">
            <name>
                <![CDATA[Home Page]]>
            </name>
            <description>
                <![CDATA[]]>
            </description>
        </action>
    </actions>
</script>
XML

my $twig = new XML::Twig( 
    twig_handlers => { name => \&name }
);               
$twig->parse($xmlStr);

sub name {
    my ($twig, $name) = @_;
    my $stuff = $name->text();            
    print "$stuff\n";
}

__END__

GT Amadeus
Home Page
[download]