#! /usr/local/bin/perl -w
#
# simple - basic usage of a Tie::Cycle::Sinewave object
#
# This file is part of the Tie::Cycle::Sinewave perl extension
# Copyright (c) 2005 David Landgren. All rights reservered.

use strict;
use Tie::Cycle::Sinewave;

tie my $c, 'Tie::Cycle::Sinewave';

print "$c\n" for 1..40;