sub do_work
{
    my ($cmd) = @_;
    # whatever...
}