#!/usr/local/bin/perl
# toh-err.pl -- Towers Of Hanoi mit einem Fehler.

print "how many discs? ";
$n = <STDIN>;

t_o_h($n, "left", "center", "right");

sub t_o_h
{
    local($nr, $l, $m, $r) = @_;
    return if $nr == 0;

    t_o_h($nr-1, $l, $r, $m);
    print "move disc from $l to $r\n";
    t_o_h($nr-1, $m, $r, $l);
}