Select Code to Download

#!/usr/bin/perl -w
# the new test3.pl
...
        sleep 1; $it++
}

        $text_box -> insert ("end", $_);
        $main->update;