sub do_ls {
    my $machine = shift;
    $machine->shell("ls $machine{work_dir}");
}