Select Code to Download

#!/usr/bin/perl --
#~ 2011-07-15-22:39:54 by Anonymous Monk
...
} ## end sub DemoData

__END__

CREATE TABLE files ( "path" TEXT ,
"Product_ID" TEXT ,
...
"HighPicWidth" TEXT ,
"HighPicHeight" TEXT ,
"Date_Added" TEXT  )

$ dbish dbi:SQLite:dbname=short.test.sqlite
Useless localization of scalar assignment at c:/perl/site/5.12.2/lib/D
+BI/Format.pm line 377.
...
[1 rows of 15 fields returned]
@dbi:SQLite:dbname=short.test.sqlite> ;quit
Disconnecting from dbi:SQLite:dbname=short.test.sqlite.