sub random_string {
    local $" = '';
    "@{[map{chr(97+int rand 26)} 1 .. shift]}";
}