Select Code to Download

  my ($p, $l, $o, $g, $s) = split( /\s+/, $lsl );

  my ($p, $l, $o, $g, $s) = ($lsl =~ 
      /^(.*?)\s+(.*?)\s+(.*?)\s+(.*?)\s+(.*)$/);

  my $lsl = `ls -l "$fnm" 2>&1`;