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