while (<$fh>) {
    $st->insert("end", $_);
}