--
|5 |  Enter the number of daily log files to copy
 --
 --
|5 |  Enter the number of audit log files to copy
 --

##</code><code>##

 --
|5 |                                               Enter the number of daily log files to copy
 --
 --
|5 |  Enter the number of audit log files to copy
 --

##</code><code>##

use Modern::Perl;
use Tk;

my %config = (
    numberOfDailyLogsToCopy => 5,
    numberOfAuditLogsToCopy => 5,
    );


my $mainWindow = MainWindow->new( 
                            -title  => "main window",
                            );
                          
                            
    my $chkboxFrame      = $mainWindow -> Frame( -borderwidth => 2, ) ->pack( -anchor => 'w', );


    my $entryDailyLogs     = $chkboxFrame -> Entry(
                            -textvariable => \$config{'numberOfDailyLogsToCopy'},
                            -width        => 2,
                            ) -> pack( -anchor => 'w',);
                            
                            
    my $entryDailyLogsText = $chkboxFrame -> Label(
                            -text => 'Enter the number of daily log files to copy',
                            ) -> pack( -before => $entryDailyLogs, -side => 'right' ); 
 
    my $entryAuditLogs     = $chkboxFrame -> Entry(
                            -textvariable =>\$config{'numberOfAuditLogsToCopy'},
                            -width        => 2,
                            ) -> pack( -anchor => 'w', );
    my $entryAuditLogsText = $chkboxFrame -> Label(
                            -text => 'Enter the number of audit log files to copy',
                            ) -> pack( -before => $entryAuditLogs, -side => 'right');   
                            
MainLoop;

##</code><code>##

use Modern::Perl;
use Tk;

my %config = (
    numberOfDailyLogsToCopy => 5,
    numberOfAuditLogsToCopy => 5,
    );


my $mainWindow = MainWindow->new( 
                            -title  => "main window",
                            );
                          
                            
    my $dailyFrame      = $mainWindow -> Frame( -borderwidth => 2, ) ->pack();


    my $entryDailyLogs     = $dailyFrame -> Entry(
                            -textvariable => \$config{'numberOfDailyLogsToCopy'},
                            -width        => 2,
                            ) -> pack( -side => 'left', -anchor => 'w');
                            
                            
    my $entryDailyLogsText = $dailyFrame -> Label(
                            -text => 'Enter the number of daily log files to copy',
                            ) -> pack( -side => 'left' ); 

    my $auditFrame          = $mainWindow -> Frame( -borderwidth => 2, ) ->pack();
     
    my $entryAuditLogs     = $auditFrame -> Entry(
                            -textvariable =>\$config{'numberOfAuditLogsToCopy'},
                            -width        => 2,
                            ) -> pack( -side => 'left', -anchor => 'w' );
    my $entryAuditLogsText = $auditFrame -> Label(
                            -text => 'Enter the number of audit log files to copy',
                            ) -> pack( -side => 'left' );   
                            
MainLoop;