sub viewrailcarsroadname{
no warnings 'redefine';
no warnings 'uninitialized';
print color 'green';

open(MYINPUTFILE, "railcardata.txt"); # open for input
$| = 1;
my @lines = <MYINPUTFILE>; # read file into list
close (MYINPUTFILE);

printf ("                         ===============================\n\n"); 
printf ("                         |     VERIFY CAR ROAD NAME    |\n\n"); 
printf ("                         ===============================\n\n");
printf ("                                                        \n\n"); 
printf ("                        PLEASE INSERT ROADNAME TO VERIFY:\n\n");
printf ("								\n\n\n\n\n\n\n\n");

my $carroadnameverify = <STDIN>; 
chomp($carroadnameverify); 

printf ("\n         ===================================================================\n\n");
printf ("         | ROAD NAME  |  ROAD NUMBER  |  CAR TYPE  |  INTERCHANGE RAILROAD |\n\n");
printf ("         ===================================================================\n\n\n");

foreach my $carroadnameverify2 (@lines) {
if ($carroadnameverify2 =~ /$carroadnameverify/) {
my $format = "           %-13s %-15s %-12s %0s";
printf ("$format", split/\:/, "$carroadnameverify2");
} elsif ($carroadnameverify2 =~ '') {
printf ("CAR RECORD NOT FOUND");
} 

} # END FILE LOOP

printf ("\n\n\n\n                     WHEN YOU ARE DONE VIEWING HIT RETURN TWICE:\n\n\n\n\n\n\n\n");

my $input = <STDIN>;
chomp($input=<STDIN>);
structure::railcar();
} # END VIEW SUB