Ну тут все надо переделать :-) Но начать надо с того, чтобы убрать второй my.

> use warnings;
> my ( $a, $b, $c );
> if ( ( defined $a ) and ( defined $b ) ) {
>    my $c = $a . $b;
> }
> if ( defined $c ) {
>    print $c;
> }

-- 
Andrew Shitov
______________________________________________________________________
[email protected] | http://shitov.ru
-- 
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить