ABAlone perl fertig