open FILE, "filename" my @file = ; for my $line (@file) { $text->insert('end', $line); } #### ----------------------------------- --the good, the bad and the physi-- -----------------------------------