use Bing::Search;
    use Bing::Search::Source::Web;

    my $search = Bing::Search->new(
      AppId => 'my ID',
      Query => 'Inflation site:europa.eu language:de filetype:pdf',
      Count => '&Web.Count=50'
    );
    
    my $source = Bing::Search::Source::Web->new();

    $search->add_source( $source );

    my $response = $search->search();

    print $_->Url ."\n" for @{$response->results};