Select Code to Download

use constant DIR => '~/';

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