Help for this page

Select Code to Download


  1. or download this
     
    my ($command, $first, $second) = (split) [0, 1, -1];
    $second = $first unless defined $second;
  2. or download this
        my ($command, $first, $second) = (split) [0, 1, -1];
  3. or download this
     
    $second = $first unless defined $second;