Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
line(4,qq(<div style="clear:both"><input type="submit" value="submit">
+</div>));
line(3,qq(</form>));
end_html();
  2. or download this
    sub tab {
  my ($var) = @_;
...
  my ($tab,$var) = @_;
  print tab($tab).$var."\n";
}
  3. or download this
    package Base::CSV::Hash;

...
}

1;