use Net::RTSP;

my $rtsp = new Net::RTSP;
my $presentation = $rtsp->initialize($uri);

my $stream_uri;
$presentation->describe(
    SuccessCallback => sub {
        my $response = shift;
        my ($stream_uri, $transport_method) =                            extract_sdp_info($response->content);

        my $session = $presentation->setup_session($stream_uri);

        $session->play;
        }
    );

$rtsp->run;