Select Code to Download

#!/usr/bin/perl -w
#
...
        $c_out->($text);
    }
}

sub simple_nudge {
    my ($w)    = @_;
...
    $mw->geometry("${w1}x${h1}+${x}+${y}"); $mw->update;
    $mw->geometry("${w0}x${h0}+${x}+${y}"); $mw->update;
}

sub nudge_widget {
...
        $this->pack(-expand => $exp, -fill => $fill);
    }
}