Ну тут все надо переделать :-) Но начать надо с того, чтобы убрать второй my. > use warnings; > my ( $a, $b, $c ); > if ( ( defined $a ) and ( defined $b ) ) { > my $c = $a . $b; > } > if ( defined $c ) { > print $c; > } -- Andrew Shitov ______________________________________________________________________ andy на shitov.ru | http://shitov.ru