open FILE, ">file.txt" or die $!;

##</code><code>##

my $sth = $dbi->prepare("SELECT * FROM TABLE") or die DBi->errstr;