my($url1, $url2, $url3); $url1 = "$ENV{'SCRIPT_NAME'}\??item\&$kb\&$kc"; $url2 = "http://blah"; $url3 = "http://blah2"; if($foo1){ &update_frame($url1); } elsif($foo2){ &update_frame($url2); } else{ &update_frame($url3); } sub update_frame{ my($url) = $_[0]; print < ; HTML }