Select Code to Download

 s_page();

...
  {      r_page();     }

foot();

#!/usr/bin/perl
use strict;
...
  {      r_page();     }
}
foot();