use WWW::Mechanize;
use IO::Socket::SSL;

my $url = 'https://www.insolvenzbekanntmachungen.de/cgi-bin/bl_suche.pl';
my $brs = WWW::Mechanize->new( stack_depth => 0);
$brs->get($url);

$brs->form_name('globe');
$brs->field( 'Suchfunktion' => "uneingeschr");
$brs->field( 'Absenden' => "Suche starten");
$brs->select( 'Bundesland' => {n => 1});
$brs->select( 'Gericht' => {n => 1});
$brs->field( 'Datum1' => "");
$brs->field( 'Datum2' => "");
$brs->field( 'Name' => "");
$brs->field( 'Sitz' => "");
$brs->field( 'Abteilungsnr' => "");
$brs->select( 'Registerzeichen' => "IN");
$brs->field( 'Lfdnr' => "");
$brs->select( 'Jahreszahl' => {n => 1});

$brs->select( 'Registerart' => {n => 1});
$brs->field( 'select_registergericht' => "");
$brs->select( 'Registergericht' => {n => 1});
$brs->field( 'Registernummer' => "");

$brs->select( 'Gegenstand' => {n => 2});
$brs->select( 'matchesperpage' => 100);	
$brs->field( 'page' => "1");
$brs->select( 'sortedby' => "Datum");

$brs->click_button( name => 'Absenden'); 

print $brs->content();