Select Code to Download

#!/usr/bin/perl -l

...
    my ($twig, $server) = @_;
    print $server->text;
}

<?xml version="1.0" encoding="UTF-8"?>
<bitrate name="1000">
...
    </range>
  </track>
</bitrate>