Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
  </supplier>
</supplier-data>
</data>
  2. or download this
    #!perl
use strict;
...
  $sth2->execute(@f) or die $DBI::errstr;
  print join "\t",$sql2,@f,"\n";
}