#!/usr/bin/perl -w
use strict;

print toggle(), $/ for 1 .. 10;

sub toggle {
    int rand 2 ? 1 : -1;
}