added perl tweaks