#!/usr/bin/perl -w
use strict;
use Shell qw( ls touch );

my $sh = Shell->new;
$sh->touch( "dummy" );
$sh->ls( "dummy" );
$sh->ls( "dummy" );