Select Code to Download

SELECT phone FROM user WHERE user_name < 'Fred';

my $var = SELECT phone FROM user WHERE user_name < 'Fred';

 use DBI;
 my $dbh = DBI->connect('dbi:DBM:ext=.db'); 
...
     $sth->dump_results if $sth->{NUM_OF_FIELDS};
 }
 $dbh->disconnect;