Select Code to Download

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

use strict;
use warnings;
...
    $st->insert('end', $line);
    $st->see('end');
}