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);
}