use Win32::SqlServer;

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

#Ausgabe: Fehlermeldung at ...