Help for this page

Select Code to Download

Select or download this
```
use constant DIR => '~/';
```

Select or download this

sub run_system {
    my (@params) = @_;
...
    system(@params) == 0
        or die "System command @{[join ' ', @params]} failed: returned
+ @{[ $? >> 8 ]}; stopped";
}