Select Code to Download

$detailLog->insert ('end', $_);
# or $detailLog->insert ('end', $string);

$detailLog->delete("1.0", 'end');

#!/usr/bin/perl -w
use strict;
...
{
    $detail_log->delete("1.0", 'end'); 
}