# get rid of top_frame
$top_frame->packForget();

# create and display text widget
my $tw = $second_frame->Text()->pack();

my $first_line = "Copying project...please wait";
$tw->insert( 'end', $first_line );

my $final_copy_project_command = &create_copy_project_command;

open( COPY_PROJ, "$final_copy_project_command|" );

while ( my $copy_proj_line = (<COPY_PROJ>) ) {
    $tw->insert( 'end', $copy_proj_line );
}