Delete lines after semicolon

Shell Programming and Scripting
1 
char str[MAX]; char str [MAX];
char *ptr; char * ptr;
int CASE; int CASE;
double temp; double temp;

Output should be:

char str[MAX];
char *ptr;
int CASE;
double temp;

How can i do this with awk,sed,perl?

2 
 perl -pe 's/;.*/;/' file
3 
awk -F ";" '{print $1";"}' file
4

And with sed, just like the perl solution of bartus11:

sed 's/;.*/;/' file
5

It's a cpp source code.It may contain for loop

char str[MAX]; char str [MAX];
char *ptr; char * ptr;
int CASE; int CASE;
double temp; double temp;
for(int i=0;i<=10;i++){
...
}

Output should be:

char str[MAX]; char str [MAX];
char *ptr; char * ptr;
int CASE; int CASE;
double temp; double temp;
for(int i=0;i<=10;i++){
...
}

for loop would be unchanged.

6 
awk '/{/{p=1}/}/{p=0}!p{sub(";.*",";")}1' file