BASH perl Get