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

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

##</code><code>##

sh: -c: line 1: syntax error near unexpected token `Shell=SCALAR(0'
sh: -c: line 1: `ls Shell=SCALAR(0x8109c4c) dummy'