use Win32::SqlServer;

eval {	
	my $connection = new Win32::SqlServer();
	die('test_irgendwas');
} or do {
	print "_" . $@ . "_";
};

#keine Ausgabe