use Tk;

$numberOfDailyLogsToCopy = 5;
$numberOfAuditLogsToCopy = 5;

my $mainWindow = MainWindow->new( 
                            -title  => "main window",
                            );
                            
add_entry_gizmo ( $mainWindow, 
                   \$numberOfDailyLogsToCopy, 
                   "Enter the number of daily log files to copy", 
                );
                  
add_entry_gizmo ( $mainWindow, 
                   \$numberOfAuditLogsToCopy,
                   "Enter the number of audit log files to copy", 
                );
                                             
MainLoop;

sub add_entry_gizmo
{
     my ($window, $text_var_ref, $label, ) = @_;
    
     my $frame = $window -> Frame( -borderwidth => 2, )
                                  ->pack(-anchor =>'w');
     
     $frame-> Entry(    -textvariable =>$text_var_ref,
                        -width        => 2,
                    )-> pack(-side => 'left' );
     $frame -> Label(
                       -text => $label,
                    ) -> pack(-side => 'left' ); 
}