Select Code to Download

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

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

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