Select Code to Download

my $dbh = DBI->connect("dbi:SQLite:dbname=demo.db","","",{RaiseError=>
+1,AutoCommit=>1} ) or die "Can't connect: ".$DBI::errstr;

my $all = $dbh->selectall_arrayref("SELECT * FROM mytable ");