perl and bash