Commit FS#12188 - Fix perl scripts that used Switch by Sean Bartell.