sub addcrewmember {
print colored ("| PLEASE ENTER YOUR NAME: |\n");
my $entyourname = <STDIN>;
$entyourname = <STDIN> until defined $entyourname;
chomp $entyourname;
cls();
print ("| PLEASE ENTER CREW: |\n");
my $entyourpos = <STDIN>;
$entyourpos = <STDIN> until defined $entyourpos;
chomp $entyourpos;
cls();

open (DAT,'>>crewmemberdata.txt') or die "$!\n";
 
print DAT ($entyourname);
print DAT (":");
print DAT ($entyourpos);
print DAT ("\n");

close (DAT);
} 

##</code><code>##

sub viewallcrew {

Title "View All Crew Members";

no warnings 'redefine';
no warnings 'uninitialized';
open(MYINPUTFILE, "crewmemberdata.txt"); # open for input
$| = 1;
my @lines = <MYINPUTFILE>; # read file into list
close (MYINPUTFILE);
foreach (@lines) {
chomp;
my ($VcrewName, $VposDesired) = split(":");
$VcrewName  = "" if !defined($VcrewName);
$VposDesired = "" if !defined($VposDesired);
my $format = "                      %-14s     %-14s\n";
printf ($format, $VcrewName, $VposDesired); 
}
}