perl and asedrive