Help for this page

Select Code to Download

Select or download this

use DBI;

...
while(my $d = $sth->fetch) {
    print "@$d\n";
}

Select or download this

 id       CAL_DS              
 -------- --------------------
...
        3 AMS                 
        4 AMSTEL              
        5 DSTEL