Select Code to Download

Select or download this
```
my $part = `sysutil | grep Total`;
```

my ($part) = grep { /^\s*Total/ } `sysutil`;

Select or download this

my ($conn, $sess, $job) = (split(/\s+/, (grep { /^\s*Total/ } `sysutil
+`)[0]))[2..4];

Select or download this

my ($part) = grep { /^\s*Total/ } `sysutil`;
my ($conn, $sess, $job) = (split(/\s+/, $part))[2..4];

Select or download this

my ($conn, $sess, $job) = `sysutil` =~ /^ \s+ Total
                                          \s+ (\S+)
                                          \s+ (\S+)
                                          \s+ (\S+) /xm;

Select or download this

sub select_fields  { @_[@{shift(@_)}] }
sub head           { $_[0] }     # Shortcut for "select_fields [0]," 
...
                          head                   # List to scalar.
                          grep { /^\s*Total/ }   # Extract total line.
                          `sysutil`;             # Get data.