perl basic