my $port = "3030";
if ($port eq "3010"){
	my $port2 = "3100";
	print $port2;
}
elsif ($port eq "3020"){
	my $port2 = "3200";
	print $port2;
}
elsif ($port eq "3030"){
	my $port2 = "3300";
	print $port2;
}
elsif ($port eq "3040"){
	my $port2 = "3400";
	print $port2;
}
elsif ($port eq "3050"){
	my $port2 = "3500";
	print $port2;
}
else{
	print "no port\n";
}