#!/usr/bin/perl

# Generate a string made of the given range of ASCII characters
sub generate_ascii_string
{
    my ($from_char, $to_char) = @_;
    my $res;

    for my $i ($from_char .. $to_char)
    {
	$res .= sprintf("%c", $i);
    }
    return $res;
}

my $lf_str = generate_ascii_string(7, 10);
my $cr_str = generate_ascii_string(11, 13);

system('createdb', $lf_str);
system('createdb', $cr_str);
system('createuser', $lf_str);
system('createuser', $cr_str);