#!/usr/bin/perl -w
# Author: Matthew Evett
# Copyright 2004.
#
# This program demonstrates the Perl debugger.
use strict;

looper();

sub looper {
    my $arg = 0;
    while ($arg < 10) {
	++$arg;
    }
}