my ($command, $first, $second) = (split) [0, 1, -1];
    $second = $first unless defined $second;

##</code><code>##

    my ($command, $first, $second) = (split) [0, 1, -1];

##</code><code>##

 
    $second = $first unless defined $second;