Ну тут все надо переделать :-) Но начать надо с того, чтобы убрать второй 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