Create pb.perl