Update for old perl :poop: