Select Code to Download

my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile","","",{RaiseError =
+> 1})
    or die "Couldn't connect to database: " . DBI->errstr;

my $get_all_user_rows = $dbh->prepare ("SELECT * FROM users");

$get_all_user_rows->execute();

my $all_row_ref = $get_all_user_rows->fetchall_arrayref;

foreach my $row_ref (@$all_row_ref)
{
   print "@$row_ref\n";
}