#!/us/bin/perl
#
# authour: omenz
#
###############

 $now = localtime ();
 $player = ('team_piglet' , 'team_wolf' , 'team_vamp' , 'team_dox' , 'team_shooter' , 'team_amphebion');
 print         "[Welcome to packetwarz v.2.5]\n
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Team select:
Team options: teamwolf, teampiglet, teamvamp, teamshooters, teamamphebious
Enter selection:\n";
	($team = <STDIN>);
print "$team welcomes you !! $now
                Your now entering you new realm \n

Misson Select Menu;
[ ]misson
[ ]sidemission
[ ]secret missions
[ ]finger print mission
[x]operations
[ ]pending approvals...\n";{
 print "[packetwarz/basecamp]$ Enter user id: ";
 ($user = <STDIN>);
 print "Password: ";
 ($pass = <STDIN>);} #
                     #code to be continued