#!usr/bin/perl 

print "Waehlen sie aus was sie möchten? \n (1) TeamSpeak2 Server Starten oder Rebooten \n (2) TeamSpeak2 Server Stoppen \n (3) Server Reboot \n"; 
print "Eingabe: "; 
print $b1=<>; 
chop ($b1); 

$Givenvergleich = $b1; 
given $Givenvergleich 
{ 
when '1' {print `cd ../home/TS/` + `./teamspeak2-server_startscript stop` + `./teamspeak2-server_startscript start`;} 
when '2' {print `cd ../home/TS/` + `./teamspeak2-server_startscript stop`;} 
when '3' {print `reboot`;} 
}