Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    use warnings;
    use strict;
    ...
    
    $Status = "Done.";
    MainLoop;
    
  2. or download this
    __END__
        (  0,   0),
    ...
        ( 50,  30),
        ( 70,   0),
        (100,   0),