HelloWorld.pl

#!/usr/bin/env perl

print r(-1882006324) . ' ' . r(-2062980754) . "\n";

sub r {
    my $s = '';
    srand(shift);
    while (my $r = int(rand(27))) {
	$s .= chr(ord('`') + $r);
    }
    $s;
}