my $scroll = $mw->Scrolled("Text",
                                      -font       => '{Arial} 10 {bold}',
                                      -scrollbars => 'e') ->pack; 
     $scroll->place(-width       => 675,
                        -height      => 570,
                        -x           => 5,
                        -y           => 45);
MainLoop();
&call_term;

sub call_term
{
my $str = "";
do {{
        #$str = <STDIN>;
        #chomp $str;
        print $str;
        #$str = $scroll->get("1.0", "end", "$str");
        $str = $scroll->insert('end', "$str");
        $str = $scroll->get("end", "$str");
      }} while $str;
}