sub viewallrailcars {

Title "View All Cars";
open(MYINPUTFILE, "cardata.txt");

my $viewlines = 5;

$| = 1;
my @lines = <MYINPUTFILE>;
close (MYINPUTFILE);

printf ("%-15s %-15s\n","=====================");
printf ("%-15s %-15s\n","|CAR MODEL|CAR OWNER|");
printf ("%-15s %-15s\n","=====================");
foreach (@lines) {
chomp;
print;
my ($VcarModel, $VcarOwner) = split(":");
$VcarModel  = "" if !defined($VcarModel);
$VcarOwner  = "" if !defined($VcarOwner);
$. % $viewlines == 0 ? <> : print "\n";
my $format = "         %-13s %0s\n";
printf ($format, $VcarModel, $VcarOwner); 

}

print ("\n\n\nWHEN YOU ARE DONE VIEWING HIT RETURN: \n\n\n");

my $input = <STDIN>;
$input = <STDIN> until defined $input;
chomp($input);
cls(); # Clears the screen
car(); # Returns to the Car Menu

} # End Subroutine