perl trials