Select Code to Download

my $sth = $dbh->prepare('
   select * from album,song
...
    'Until the End of the World',
    '1'
  ];

my @fields = map {
   $_->[0]
...
   from song
");
$sth->execute();