Begin by reading perlsub.

The use of local for routine parameter passing is not a good idea; you should be using my instead:

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

While there are circumstances where local is needed, this is not one of them. There are other excellent writeups on this topic in the Tutorials section.