open my $output, '>','filename.txt' or die $!;
while( my @row = $sth->fetchrow_array ){
    print $output join( "::", @row ), "\n";
}
close $output;