$machine->shell("ls " . $machine->work_dir);

##</code><code>##

$machine->shell("ls $machine{work_dir}");

##</code><code>##

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