sub run_command {
    my ($cmd) = @_;
    warn "Running [$cmd]\n";
    system($cmd) == 0
        or die "Couldn't launch [$cmd]: $!/$?";
};