Help for this page

Select Code to Download

Select or download this
$dbh->do(qq/insert into "$DBTABLE" (Artist, Title, Album) values ($artist, $title, $album/) or warn "failed to insert $artist, $title, $album into table - $dbh->errstr" if ($@);

Select or download this

#!/usr/bin/perl

...
foreach( @$res ) {
    print "\n$_->[0], $_->[1] $_->[2]\n\n";
}