Select Code to Download

package My::DB;
use strict;
...
    return $dbh; 
  
}

#!/usr/bin/perl -w

...
while ( my @row = $sth_select->fetchrow ) {
        print "@row \n";
}