sub foo {
    my $bar = shift;
    my $baz = 'something';
	
	if ($bar eq $baz) {
	    ...
	    ...
	}
	else {
	    ...
	    ...
	}
		
    do_something();
}