Vema Venkata wrote: > > use Time::Local; > use FileHandle; > my @month_list = qw/ > January February March > April May June > July August September > October November December > /; > #Set the path here > my $path1= "/proj/ahd02/CAisd/site/mods/scripts/log/Summary"; > my $path2= "/proj/ahd02/CAisd/site/mods/scripts/log"; > > # > # The date to be entered should be done here: > # The data archived will be for records OPENED the day before the entered date and > older. > > my $day_of_the_month = 28; # 1 - 31 Day of the month. > my $month = 7; # 1 - 12 Jan = 1, Feb = 2, Mar = 3, etc. > my $year = 2003; > > # Option for removing active, inactive records, or both > my $active_flag = 0; # 0 for inactive, 1 for active, NOT NULL for both > > # > # Leave this alone > # > > my $hours = 0; > my $minutes = 0; > my $seconds = 0; > my $month_index = $month - 1; > my $choose_table= <STDIN> ; #user has to key in Change_Request,call_req,Both > read(STDIN,call_req ) > chomp $choose_table;
You have no print statement in here Vema. Is this really what you have? Change the last two lines to this and it will work. print "choose Change_Request, call_req or Both?> "; my $choose_table = <STDIN>; chomp $choose_table; HTH, Rob -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]