perl work